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EDITORIAL 


Chers revenants (de vacances), 


Ne soyez pas trop tristes, la rentrée va bien commencer puisque voici votre 
journal favori. Comme d’habitude, il est plein de bonnes choses, de délicieux 
programmes à déguster, de trucs et d’astuces en tous genres. 


Ce mois-ci, 1l faut signaler l’article de Wlodek Mier-Jedrzejowicz, de Londres, 
sur le HP-28C. Pour la première fois, on peut découvrir la structure interne de ce 
calculateur. Nous devons un grand merci à Wlodek, et espérons que les 
prochaines découvertes soient votre oeuvre. A vos claviers ! 


Pendant le mois d’août, le Club a vécu au ralenti. Nous allons maintenant 
reprendre le rythme habituel. Nous nous sommes fixés comme objectif de 
répondre au courrier que vous nous adressez dans un délai d’une semaine. 
Aidez-nous, soyez clairs, et indiquez toujours votre numéro d’adhérent. Merci. 


Bonne lecture, 


Pierre David (37) 
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PPC PARIS SE REUNIT 
UNE FOIS PAR MOIS 


Comme vous le savez peut être déjà, PPC Paris se 
réunit une fois par mois, en plein coeur de Paris. 
Amenez votre matériel, votre bonne volonté et vos 
idées ! Plus vous en apporterez, et plus vous en 
trouverez chez vos collègues de PPC. 


Ces réunions se déroulent de manière très libre, 
aucun ordre du jour, discussion ou autre n'étant 
imposé. Un membre du bureau est toujours présent. 
Ainsi, si vous désirez remettre votre article tout frais 
au Journal, si vous avez des suggestions à faire, si vous 
voulez vous procurer des anciens numéros de JPC, ce 
sera en principe toujours possible. 


Si donc cela vous intéresse, n’hésitez plus un seul 
instant, venez nous rejoindre tous les premiers 
samedis de chaque mois (sauf en période de vacances 
scolaires) au : 

Centre de Jeunesse et de Loisirs Jean Verdier 

11 rue de Lancry 

75010 Paris 

et en montant au deuxième étage, vous entendrez des 
éclats de rire et des discussions passionnées vers la 
salle 215. Attention, toutefois, de venir entre 16 et 
19h. 


Pour laccès en métro, trois possibilités s’offrent à 
VOUS : 

- Métro Strasbourg Saint Denis : 

Sortie porte St Martin / Bd St Denis, coté pairs 

- Métro République : 

Sortie Bd St Martin, coté pairs 

- Métro Jacques Bonsergent : 

Sortie Bd Magenta, coté impairs. 


Ab, j'oubliais ! JPC est (souvent) distribué en avant 
première lors de ces réunions. A bon entendeur, 
salut ! 


Les dates des prochaines réunions sont : 
Samedi 3 octobre 1987 

Samedi 21 novembre 1987 

Samedi 5 décembre 1987 

Samedi 16 janvier 1988 

Samedi 20 février 1988 

Samedi 5 mars 1988 

Samedi 16 avril 1988 

Samedi 7 mai 1988 

Samedi 4 juin 1988 


Pierre David (37) 
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AH ! VOUS ECRIVEZ 


Vous vous sentez en verve, mais Vous ne savez pas 
sous quelle forme "l’équipe de rédaction" souhaite 
recevoir votre prose. C’est ici que se trouvent les 
réponses à vos questions. 


Dans la mesure du possible, vous devez nous envoyer 
vos écrits sur support magnétique (carte, cassette ou 
disquette). Soyez sans crainte, nous vous retournerons 
vos biens après copie. 


Si vous ne pouvez pas utiliser de support magnétique, 
ou ne pouvez vous rendre aux réunions, alors et alors 
seulement faites le sur papier. 


Que ce soit sur une feuille de papier, ou sur support 
magnétique, ne dépassez pas 50 caractères par ligne. 


Pour nous épargner du travail, insérez dans votre 
texte les commandes de formattage suivantes (et non 
les commandes du formatteur HP) : 

"°" centre un titre, par exemple : 
"TITRE 


"" (CHRS(92)) marque le début et la fin d’un 
paragraphe. Par exemple : 


\Début de paragraphe exprimant le contenu de vos 
idées qui, même si vous en doutez, intéressera 
certains des membres du Club. Surtout si vous vous 
sentez débutant. Les articles pour débutants écrits par 
des débutants sont ceux qui manquent le plus. Fin de 
paragraphe.\ 


N'oubliez pas de mettre les accents. Utilisez le jeu de 
caractères RomanS. Les possesseurs de HP71 
utiliseront les redéfinitions de touches ci-dessous, 
ainsi que le fichier CHARLEX listé dans le coin des 
Lhex en fin de journal. 


Jean-Jacques Dhénin (177) 


DEF KEY ‘fW!, CHR$(197): (é) 
DEF KEY 'fE', CHR$(193): (&) 
DEF KEY 'fR', CHR$S(201): (è) 
DEF KEY :fY', CHRS(203): (ù) 
DEF KEY ‘fU', CHR$(195);: (ü) 
DEF KEY 'fI1', CHR$S(209): (1) 
DEF KEY ‘f0', CHRS(194): (6) 
DEF KEY 'f/1, CHRS(92); ( 
DEF KEY 'fA', CHR$S(192): (à) 
DEF KEY 'fS', CHR$(200);: (à) 


DEF KEY ‘fD', CHR$(205): (ë) 

DEF KEY ‘'fJ', CHR$S(207): (ü) 

DEF KEY 'fK', CHR$(221): (i) 

DEF KEY 'f*1, CHR$(124): (1) 

DEF KEY 'fC', CHR$(181): (ç) 
LA CONFERENCE 
DE COPENHAGUE 


Les 8 et 9 août 1987 se tenait à Copenhague la 
conférence internationale des utilisateurs de matériel 
HP, organisée par PPC Danemark. 


Cette conférence, je dois le dire tout de suite, était 
extrêmement bien organisée. Flemming Madsen et 
Steen Petersen, pour ne cifer qu’eux, ont accompli un 
travail remarquable. 


La conférence a eû un large succès, puisque pas 
moins de 11 pays étaient représentés. Je ne connais 
pas la fréquentation exacte, mais il y avait au moins 50 
personnes, vraissemblablement plus. Nombre de 
sociétés fabriquant ou commercialisant des produits 
pour nos calculateurs étaient présentes. Citons, par 
exemple, David Lin, le président de CMT, venu 
spécialement des Etats-Unis. Notons que toute la 
conférence se déroulait en anglais. 


A 9 heures, le samedi 8 août au matin, après nous 
avoir distribué des documents papiers et des badges, 
la conférence a débuté par une présentation de la 
stratégie commerciale de Hewlett-Packard, par 
Kermit Yensen, ainsi que par une description des 
orientations pour les nouveaux produits par Michel 
Maupoux. Tous deux venaient spécialement de l’usine 
HP de Grenoble. Pas d'annonce fracassante, pas de 
nouvelle spectaculaire, mais une confirmation des 
volontés d’HP sur le marché : plus large diffusion de 
ses machines en grignotant sur le bas de gamme. 
Peut-être s’agit-il des prémisses de l’annonce d’une 
nouvelle machine de moins haut de gamme que le 
HP-28C ? D'autre part, l’architecture matérielle et 
logicielle des HP-28C et HP-18C reservira : elle va 
devenir l'architecture unifiée des calculatrices de 
demain. 


Après une pause, David Lin, de Corvallis Micro 
Technology, nous a présenté « Marys II », le nouvel 
ordinateur compatible HP-41. En fait, il s’agit d’une 
machine portable, alimentée par batteries, de taille 


non encore connue, à base de micro-processeur 
80C88. Le système d’exploitation, quant à lui, se 
rapproche de MS-DOS. L'affichage comprend 8 
lignes de 21 caractères, ou 64 x 128 pixels en mode 
graphique. La mémoire peut aller jusqu’au 
méga-octets, et deux ports RS-232 sont fournis en 
standard. Là où ça devient intéressant, c’est que cette 
machine comprend un émulateur de HP-41, le 41M. 
C’est une super HP-41, plus rapide (5 à 10 fois), avec 
plus de mémoire, un plus grand afficheur, et des 
caractéristiques supplémentaires. Espérons que nous 
reparlerons bientôt de ce petit bijoux ! 


Ensuite, VM Electronics, une firme danoise, 
annonçait un nouveau module pour le HP-41 : Je 
module HEPAX. C’est un module apportant 8 ou 16 
Ko de mémoire additionnelle, s’utilisant comme le 
module XFonctions. Une différence majeure, 
cependant : les programmes peuvent être exécutés 
directement dans la mémoire du module, sans avoir 
besoin de les recopier en mémoire principale au 
préalable. En plus, une mémoire morte de 16 K mots 
contient des fonctions de gestion de cette mémoire, 
aussi bien que des utilitaires généraux tels que 
désassemblage, édition de la mémoire en 
hexadécimal, etc. Le prix est de 260$ pour le module 8 
Ko, et 295$ pour le 16 Ko. 


Le dernier orateur avant le déjeuner était la firme 
anglaise Zengrange, qui présentait le module 
ZepROM. C’est un module Eprom pour le HP-41, 
comparable à celui de CMT. La contenance est de 8, 
12 ou 16 Kmots, paginés si besoin est. 


Après le repas, typiquement danois, W&W software, 
la firme allemande, nous a parlé de son module 64 K 
ram pour la HP-41, tenant dans un boitier de lecteur 
de cartes. 


La parole a été ensuite donnée aux utilisateurs. 
Stefano Tendon nous a parlé de Turbo Assembler 71. 
Il s’agit d’un assembleur écrit en Forth et en 
assembleur, beaucoup plus rapide, permettant 
d'écrire beaucoup plus facilement des primitives 
Forth. En fait, il ne s’agit pas d’un assembleur, mais 
plutôt d’un nouveau langage. Les opérations de base 
sont toujours les opérations du micro-processeur, 
mais complétées par des structures de contrôle 
évoluées telles que if … endif ou begin … until, et des 
procedures, subroutines et macros. Bref, il s’agit d’un 
très beau produit, et nous l’attendons avec 
impatience ! 


Ensuite, Kim Holm et Wlodek Mier-Jedrzejowicz ont 
présenté les résultats de leurs recherches sur la 
structure interne du. HP-28C. Vous trouverez dans ce 


JPC une présentation détaillée de ces découvertes par 
Wlodek. 
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Après une pause, les conférences ont repris en deux 
séries parallèles. D’un coté, Wlodek nous confiait 
quelques règles pour mieux programmer le HP-41. 
Dans un autre amphithéatre, Kim Grau parlait des 
bases de données sur HP-75. Après, Torsten 
Hagemann parlait de la programmation multi-tâche 
sur HP-41. Simultanément, Sherman Lowell 
expliquait de la communication entre nos ordinateurs 
préférés et les machines MS-DOS. 


La conférence était finie pour la journée. Il y eû alors 
une réunion des présidents de clubs, qui nous a 
permis de faire un recensement des clubs PPC 
représentés. 


La soirée s’est ensuite achevée dans les jardins de 
Tivoli, à Copenhague. 


Le lendemain matin, Stefano Tendon nous a parlé de 
son éditeur de textes pleine page pour HP-71. VE71 
(c’est son nom) est vraiment très puissant, et il a 
décidé de le mettre dans le domaine public. C’est une 
excellente initiative, et nous ne pouvons que le 
remercier. 


Ce fut ensuite à notre tour de parler. Janick 
Taillandier a présenté JPCLEX, son contenu, son 
histoire. Nous en avons profité pour montrer le 
manuel de plus de 200 pages, ainsi que la traduction 
anglaise qu’il a réalisé. Apparemment, cela a 
beaucoup impressionné les auditeurs. 


Steen Petersen, après une pause, a présenté le 
micro-code du HP-41 aux débutants. Il a expliqué ce 
que c’est, l'intérêt, les applications, le matériel 
nécessaire et la manière de programmer, et enfin les 
erreurs fréquentes quand on développe en 
assembleur. 


La dernière conférence était consacrée à un pauvre 
HP-28C, honteusement torturé par Kim Holm ! Non 
content d’y avoir ajouté 4 Ko de mémoire, il l’a 
accéléré. Non mais, vous vous rendez compte ? Quel 
scandale. Espérons que nous pourrons bientôt 
publier des schémas complets. ! 


Le repas, lui aussi typiquement danois, a clos les 
présentations. L’après-midi était consacré aux 
discussions particulières, aux échanges et aux 
réunions de petits groupes. 


Ainsi s’est déroulée cette conférence internationale, la 
première depuis deux ans. Souhaitons que les 
prochaines soient moins espacées. 
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Une bonne nouvelle pour tous ceux qui viennent aux 
réunions mensuelles : les résumés des conférences 
peuvent être consultés. 


Pierre David (37) 





CHOC EN RETOUR 


Michael Markov nous a signalé une «amélioration» 
possible dans les exemples de l’article sur FINPUT paru 
dans JPC 43 (page 16). Au lieu de mettre : 


121 DIM S$[82] 
122 S$="" 

123 FOR 1=1 TO 82 
124 S$=S$&n 1" 

125 NEXT 1! 


il aurait été plus habile d’utiliser l'astuce suivante : 


121 DIM S$ [82] 
122 S$=nn 
123 S$[82]=" n 


La ligne 121 dimensionne la variable S$ à 82 
caractères, la ligne 122 l’initialise à la chaîne vide, et 
la ligne 123 met le 82°"€ caractère à blanc, ce qui a 
pour effet de mettre les 81 premiers à blanc 
également. Cette astuce prend moins de place, est 


plus élégante et est plus rapide. 
Comme quoi faire trop d’assembleur fait quelquefois 


oublier les petits trucs utiles... 


Pierre David (37) 
Janick Taiïllandier (246) 





COURRIER DES LECTEURS 


Jack Elhay 

9/494-498 Mitcham Road 
Mitcham, Victoria, 3132 
Australie 


Chers amis de PPC Paris, 


C’est en lisant JPC que l’envie d’écrire des fichiers 
Lex m'est venue. Avant ma venue à PPPM, le Club de 
Melbourne en Australie, personne ne pouvait 
comprendre le contenu de votre Journal. Quelques 
uns assemblaient vos fichiers Lex, mais devaient 
essayer de deviner la syntaxe. 


Je suis arrivé en Australie quand j'étais petit, il y a 
environ 40 ans. A l’époque, je parlais le Français, 
appris au Lycée Français du Caire. Bien que je ne l’ai 
pas parlé pendant la majeure partie de ma vie, je n’ai 
pas tout oublié ! J’ai donc préparé des résumés des 
JPC que nous recevions à Melbourne, et ils sont parus 
dans notre Journal (Technical Notes) sous le titre 
«The French Connection». Cela me fit réapprendre le 
français, et cela était d’autant plus difficile que je n’y 
connaissais rien en assembleur. 


Vos articles sur lassembleur ont été une source 
constante d'inspiration. En particulier, La décomparse 
dans JPC 28 (Octobre 1985) nous a aidé 
considérablement pour les mots-clefs. Je voudrais 
partager avec vous les fruits de cette fertilisation. 
Aussi, je vous envoie quelques fichiers Lex et 
programmes pour HP-41. 


J'aimerais vraiment comprendre comment manipuler 
des variables en assembleur. Apparemment, 
Jean-Jacques Dhénin le sait ! Il y en a certainement 
d’autres parmi vous qui le savent aussi. Le fichier Lex 
VECTLEX n’est rien moins que brillant. Je crois 
aussi que SWAP doit identifier des variables pour les 
échanger, si j'ai correctement deviné son 
fonctionnement. Maintenant, si quelqu’un parmi vous 
pouvait donner un peu de son temps pour écrire un 
petit article expliquant comment accéder aux 
variables, comment leur affecter une valeur, je lui 
serais reconnaissant. 


Une autre chose : j'ai souvent besoin d’un tri dans 
mes programmes de calcul. J’ai besoin de trier des 
tableaux à une dimension, du plus petit élément 
jusqu’au plus grand. Voici ce que je fais 
actuellement : 


20 SUB SORT(X(),Y()) à M=UBND(X,1) à MAT Y=X Q 
FOR 1=1 TO M @ FOR J=I TO M 

30 ON (Y(J)>=Y(1))+1 GOTO 'A','B! à 'A':A=Y(J) à 
Y(J)=YCI) à Y(I1)=A à 'B': NEXT J @ NEXT I 


Bien que Le ON...GOTO soit meilleur que 1F..THEN.., ce 
serait encore meilleur si nous pouvions écrire : 


MAT Y=X @ SORT Y 





n'est-ce pas ? Et ce serait aussi plus rapide. Je 
demande donc à Jean-Jacques : «pourriez-vous me 
faire la faveur d'écrire ce mot-clef et de le 
documenter complètement ?». 


Nous avons un bon groupe, ici à Melbourne, mais il 
semble que ce novice (moi) était le premier à écrire 
un fichier Lex original. Les autres qui étaient 
intéressés utilisaient soit des fichiers de CHHU, des 
disquettes d'échange de Michael Markov ou de JPC, 
soit les modifiaient. Par exemple, Graham Fraser 
améliora FILE? pour avoir un meilleur contrôle 
d’erreur, et fit la même chose que MsG$. Maintenant, 
ils commencent à écrire des choses originales. C’est, 
pour moi, très excitant, n’ayant commencé à écrire 
des fichiers Lex que depuis décembre 1986. 


De nouveau, je vous remercie. Vous pouvez répondre 
en français, s’il n’y a pas d’argot ou de mot trop 
difficile. Ne riez pas, s’il vous plaît, j'essaye. Mais je 
suis sûr que si j'écris plus que ces quelques mots, je 
vais faire des bêtises... 


Jack Elhay 


NDLR : merci pour ces nouvelles. Ce témoignage 
nous va droit au coeur. Merci pour l'effort, et bonne 
continuation. 


François Duret-Lamouroux 
5, chemin de la Tuilerie 
78240 Chambourcy 


Chers amis, 


Je tiens à remercier Jacques Baudier pour son article 
publié dans JPC du mois de juin relatif à la 
programmation en assembleur du HP-71. 


A linstar, j'imagine, d’autres membres du Club, je 
suis tout à fait novice, n’ayant un HP-71 que depuis le 
début de cette année et n’ayant précédemment fait 
qu’un peu de programmation sur HP-67 et HP-41. 
J'ai donc encore beaucoup à apprendre et la 
littérature du commerce est souvent d’un faible 
secours compte-tenu des particularités du HP-71, 
spécialement en ce qui concerne l’assembleur pour 
lequel je n’ai jusqu’à présent rien trouvé. 


J'ai certes tiré grand profit des réunions du Club ainsi 
que de la lecture de JPC. Cependant, le haut niveau 
des « locomotives » du Club fait qu’il est parfois 
difficile de les suivre, même de loin ! 
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Il me paraît donc tout à fait opportun qu’il soit publié 
une série d’articles donnant les bases élémentaires 
sans lesquelles ceux qui sont dans mon cas risquent de 
rester des spectateurs admirant des acrobates 
professionnels ou semi-professionnels ! Ce qui semble 
à l'opposé des objectifs d’un club où les plus avancés 
peuvent aider les nouveaux venus à se mettre à un 
niveau suffisant pour apporter ensuite à leur tour leur 
contribution à l'enrichissement commun. 


Ceci ne doit pas être perçu comme une critique de 
Paction du Club qui, je le répète est tout à fait 
positive. Je veux seulement exprimer, à la lumière de 
ma courte expérience personnelle, qu’il est difficile, 
sans acquérir certaines bases, de faire autre chose que 
«pomper» le travail des autres. Or, s’il est normal 
qu'un nouvel arrivant se comporte en assisté, il 
devrait progressivement être en mesure de produire 
quelque chose d’utile aux autres. 


Merci d'avance à ceux qui écriront de longs articles 
d'initiation comme Jacques Baudier a entrepris de le 
faire. A l’image de ce qui a été fait avec JPCLEX, ces 
articles pourraient être ultérieurement regroupés 
dans un manuel du débutant. 


Bonne programmation ! 


François Duret-Lamouroux (329) 


Dominique Marcaillou 
29, rue du Moulin 
31320 Castanet Tolosan 


Le Corbeau de JPC 


Voilà mon premier article, qui représente une 
sommation de tous les bogues parus dans le JPC (je 
vais m'’attirer les foudres de la rédaction !). 


Tous ces bogues se rapportent aux codes du Lex du 
coin des Lex : 


Numéro 31 : 


- ENDUPLEX : la fonction ENDUP provoque un 
message d’erreur lors de son utilisation. De plus, lors 
d’un passage au SCANALEX de Jean-Pierre Bondu, 
cette charmante fonction le plante en plein travail, 
dommage... 


- FINDLEX : on attendait le message d’erreur Not 
Found. Cette fois-ci, on aura uniquement Err:. 
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Numéro 26 : 


- REPEAT : qu'est-ce que l’on entend dans l’article 
de Jean-Jacques Moreau par «des conflits peuvent 
éventuellement avoir lieu entre le Lex REPEAT et 
d’autres Lex» ? Un Memory Lost ne doit pas être très 
loin du mot «conflit». 


Quand au programme de dérivées symboliques de 
JPC 44, c’est toute une histoire Quelle joie de voir 
un tel programme pour un élève de Terminale, mais 
quelle déception de savoir que l’ordinateur réinvente 
la notion de dérivée... 


Premièrement, une erreur visible : la dérivée de 
SORT(X) donne 1/.5*SQRT(X). Bizarre, bizarre ! Il 
me semblait que c'était 1/2*SQR(X). On regarde la 
ligne 910, et on remplace .5 par 2. On redérive des 
fonctions avec SRO(X), et ça marche ! On souffle un 
peu... puis on dérive COS(X)"3 et boum ! Par magie, 
on a un résultat un peu tronqué : 3*COS(X)"2. Mais 
où est passé -SIN(X)*. Même procédure, même 
résultat pour TAN(X)"3, SIN(X)"3. Il ne faut pas 
oublier que la dérivée de u(x}" est nu’(x)u(x}"1. 
Espérons que ce programme n’est pas un iceberg, 
avec une partie de bogues visibles et d’autres... 


Deuxièmement, après avoir déblatéré sur ces bogues 
Basic, il faut remarquer que concentrer un dérivateur 
en 4000 octets n’est pas chose facile, et surtout avec 
une rapidité à faire palir les divers MuMath sur 
Apple. Je remarquerai que faire un dérivateur est 
quelque chose qui ressemble à une mission impossible 
vues mes recherches à ce sujet. Vivement l’acte II de 
cet article avec la correction des bogues et un petit 
émulateur de HP-28C sur cette si bonne machine. 


Dominique Marcaillou (315) 





COURRIER DU COEUR 


PPC-Paris 
B.P. 604 
75028 Paris Cedex 01 


Vend : 

Interfaces vidéo HP82163B (32 colonnes) neuves 
(dans leur boîte, avec documentation) : 600 F 
seulement. 


Lecteurs de cartes magnétiques HP82400A neufs 
pour HP-71 (dans leur boîte, avec documentation et 5 
cartes magnétiques) : 500 F seulement. 


1 lot de cartes magnétiques pour HP-41, HP-67, 
HP-97 et même HP-65 : 100 F seulement. 


Pierre David 

33 Bd St Martin 
75003 Paris 

Tél : (1) 48 87 68 93 


Vend : 
Imprimante 80 colonnes HP82905B + papier + 
étiquettes : 2000 F. 


Convertisseur HP82166A : 1000 F. 


Patrick Biani 
28, rue Francis Jammes 
13730 St Victoret 


Vend : 

HP-71B + interface vidéo HP82163B + moniteur 
vidéo HP82913A + lecteur de disquettes HP9114A 
avec alimentation secteur (Lambda Electronic 8A V6) 
+ interface HP-IL HP82401A 9500 F HT 
(ancienneté : 3 ans et demi). 

Table traçante HP7470A opt. 003 : 5000 F HT. 


Vincent Herlicq 
Tél : (1) 46 40 15 33 


Vend : 

Module Paname pour HP-41 : 600 F, HP-71 + HPIL 
+ Ram : 4500 F, module Forth / Assembleur + 
debugger (+ IDS) : 800 F, lecteur de disquettes 
HP9114A : 3500 F, ThinkJet : 3500 F, interface vidéo 
32 colonnes : 500 F. 


NOUVEAUX PRODUITS 


Quatre manuels d’application devraient bientôt être 
disponibles pour le HP-28C. Trois sont en anglais, et 
un est en cours de traduction. Il s’agit de : 





- Vectors and Matrices, la traduction devrait être 
bientôt en vente. 

- Algebra and College Math, 

- Calculus, 

- Probability and Statistics. 


En outre, un petit fascicule montrant des exemples de 
programmation est livré depuis peu avec les machines 
aux Etats-Unis. Nous vous tiendrons informés s’il est 
traduit en français. 


La firme américaine CMT  (Corvallis Micro 
Technology) diffuse un nouveau périphérique HP-IL : 
il s’agit d’un ramdisc, c’est à dire d’une unité de 
mémoire accessible comme une disquette ou cassette, 
mais beaucoup plus rapide. 


Cette mémoire est non volatile : elle garde les 
données même quand l'appareil est éteint. Il 
fonctionne sur batterie, et l’autonomie a l'air plutôt 
grande. 


Ces unités sont disponibles en 128, 256 ou 512 Ko, 
avec ou sans interface RS-232 intégrée. Cette 
interface émule complètement l'interface 
HPIL/RS232 d'HP. 


Les prix sont de : 


128 Ko $345 
256 Ko $495 
512 Ko $795 


128 Ko + RS232 $445 
256 Ko + RS232 $595 
512 Ko + RS232 $895 


Corvallis Micro Technology, Inc. 
895 N.W. Grant Avenue 
Corvallis, OR 97330 

US.A. 


Pierre David (37) 
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PROGRAMMATION 
SYNTHETIQUE SUR HP-28C 


L'article ci-dessous nous a été envoyé par Wiodek 
Mier-Jedrzejowicz d'Angleterre. C'est le résultat des 
recherches entreprises par HPCC (le Club anglais) pour 
dévoiler la structure interne du HP-28C. 


Cet article, qui explique en détail ces recherches, les 
moyens et le résultat est un excellent exemple de la 
coopération qui règne entre les Clubs PPC à travers le 
monde. 


Tout ceci doit être considéré comme NOMAS. Ce 
terme, inventé par Richard Nelson aux Etats-Unis, 
signifie NOt MAnufacturer Supported. Autrement dit, 
Hewlett-Packard n'a rien à voir là dedans, et ne 
répondra à aucune question sur le sujet. 


À vous de profiter de ces découvertes. Et pourquoi le 
prochain article sur le sujet ne serait-il pas de vous ? 


Le jour où la HP-28C a été annoncée, j'ai envoyé 
quelques copies d’un article intitulé NOMAS 
programming on the HP-28C. Mon souhait était que se 
développe rapidement un échange d'idées et de 
découvertes semblable à celui survenu dans le PPC 
Journal après l'annonce du HP-41. J’ai eu la chance 
de pouvoir disposer d’un HP-28C à des fins 
d'évaluation pendant une semaine. Pendant ce temps, 
j'ai pu faire quelques découvertes dont je faisais part 
dans l’article afin d’éviter aux autres de devoir 
redécouvrir les mêmes choses. Malheureusement, les 
événements ne se sont pas passés ainsi, 
principalement en raison de la faible activité des clubs 
américains. Que pouvons nous faire alors ? 


Pour commencer cet article a été publié dans 
DATAFILE, le Journal du Club anglais HPCC. 
Depuis, j'y ai fait paraître une rubrique régulière 
consacrée au HP-28C. Elle a pour but de diffuser 
l'information que j'obtiens et de donner à ceux qui ne 
possèdent pas la machine une idée sur ce qui se passe. 


Le présent article se propose de vous expliquer 


comment analyser la structure mémoire des objets 


manipulés par le HP-28C. 


Dans mon premier article je proposais, entre autres, 
qu’un groupe d'individus se partage l’espace de la 
Rom du HP-28C et que chacun étudie sa zone en 
utilisant SYSEVAL. Seul Jan Maw a répondu a cet appel 
et nous avons décidé de nous intéresser aux adresses 
hautes de la Rom. lan a étudié les adresses #3F800 à 


#3FFFF et moi les adresses #3F000 à #3F7FF. lan a 
très intelligement découvert que l’adresse # 261031 
(décimal) fonctionne comme Sst0 mais sans 
vérification particulière. Ainsi vous pouvez utiliser un 
objet se trouvant au niveau 1 de la pile pour en faire 
un nom de variable puis replacer ce nom dans la ligne 
de commandes en tant que chaîne de caractères et 
analyser son contenu grâce à NUM. 


Il m’a été possible en utilisant cette technique de 
trouver les adresses de toutes les commandes du 
HP-28C. J'ai également écrit un ensemble de 
programmmes HP-71 afin de pouvoir trier et éditer 
cette liste par adresses croissantes. Ceci conduit à une 
découverte très intéressante : presque toutes les 
commandes sont séparées de la suivante par 51+1 
quartets. Comme l'unité centrale Satum utilise des 
adresses codées sur 5 quartets, ceci signifie que 
chaque commande est constituée par une liste 
d'appels à des routines de plus bas niveau. Ceci est 
très semblable à ce qui se passe en Forth et est 
confirmé par la remarque de Bill Wickes précisant 
que les commandes de la machine sont écrites dans 
un sur-ensemble du langage connu par l'utilisateur. 


À un moment ou à un autre, le HP-28C doit atteindre 
un niveau où des instructions machines sont 
exécutées. Ceci doit être indiqué d’une manière 
particulière, soit par une adresse de commande qui 
correspond à l’exécution de langage machine, soit par 
un code particulier ou peut-être même les deux. Ceci 
pourrait expliquer pourquoi chaque commande a 
pour longueur 57+1, un quartet supplémentaire 
semble être stocké devant chaque commande. 


Avoir découvert que le HP-28C fonctionne 
essentiellement grâce à des adresses de 5 quartets 
permet d'aller plus loin. Par exemple, beaucoup 
d'objets (sinon tous) sur la pile sont en fait 
représentés sous forme d’adresses. Ainsi DUP, OVER et 
d’autres commandes ne font que déposer 5 quartets 
sur la pile correspondant à l’adresse en mémoire de 
l'objet manipulé. Par exemple, un nombre réel est 
codé sur 16 quartets : le signe, la mantisse sur 12 
quartets et l’exposant sur 3 quartets. Le tout est 
précédé par les 5 quartets de la routine qui l’identifie 
comme un réel, soit 21 quartets globalement si le 
nombre se trouve dans un programme. Cependant, si 
un nombre réel est stocké sur la pile, il utilise 32 
quartets (en supposant que LAST, UNDO et COMMAND ne 
sont pas actifs). Je suppose que le nombre est stocké 
avec une adresse sur 5 quartets plus un pour préciser 
qu’il ne s’agit pas d’une variable nommée mais d’un 
objet sur la pile, ceci étant completé par l’adresse en 
mémoire du nombre ; nous retrouvons bien les 32 
quartets. Les nombres complexes sont stockés de la 
même manière mais nécessitent 16 quartets 
supplémentaires pour la partie imaginaire. 





Beaucoup d’opérations du HP-28C sont basées sur 
Putilisation d’adresses sur 5 quartets. Ces adresses 
elles-mêmes ne sont pas des objets, mais elles 
pointent sur des objets, des instructions ou d’autres 
adresses. Si l'adresse ne pointe pas sur un objet ou 
une commande, elle est visualisée comme System 
Object. Les adresses sont des entités tellement 
importantes que je propose que les utilisateurs de 
HP-28C leur donnent un nom. 


Je pourrais vous donner plus de détails, mais vous 
êtes sans doute curieux de savoir comment faire ces 
découvertes vous-même. Le reste de cet article va 
donc vous expliquer comment j'ai utilisé la découverte 
du STo synthétique par Ilan Maw pour analyser la 
structure des objets du HP-28C. 


1- Mettez l’objet à étudier au niveau 1 : en fait comme 
je lai dit plus haut, il n’y a probablement que 
ladresse de l’objet qui soit poussée sur la pile, mais 
ST0 remplacera le nom par la valeur donc ceci n’a pas 
d'importance. 


2- Assurez-vous de la présence d’au moins un objet au 
niveau 2. Ceci peut se faire simplement en appuyant 
sur (ENTER) pour dupliquer l’objet que vous voulez 
étudier. 


3- Exécutez le programme « #261031 SYSEVAL » (le 
HP-28C étant en mode décimal). C’est équivalent à 
un STO à ceci près qu’il ne teste pas si l’objet au niveau 
1 est un nom valide. Vous pouvez le vérifier en 
stockant un nom valide au niveau 1 et en exécutant le 
programme : le nom sera ajouté au menu USER de la 
même manière que si STO avait été effectué. S’il y a un 
autre type d'objet au niveau 1, celui-ci est traité 
comme un nom et ajouté au menu USER. Le nom 
ainsi produit n’a, en général, pas de sens mais vous 
pouvez verifier de quel objet il s’agit en appuyant sur 
la touche et en examinant ce qui se passe. 


4- Appuyez sur ["}, puis sur la touche à laquelle vous 
venez d’assigner le nom : ceci amène le nom que vous 
avez créé dans la ligne de commandes. 


5- Vous venez de convertir l’objet à étudier en une 
chaîne de caractères dans la ligne de commande. 
Vous pouvez utiliser la fonction NUM du menu 
STRING pour extraire un par un les octets de cette 
chaîne et ainsi analyser le contenu de l’objet octet par 
octet. Ignorez le caractère espace inséré par le 
HP-28C entre le “ et le premier caractère de la 
chaîne. Le dernier caractère est également un espace 
et peut être utilisé pour reconnaître la fin de la chaîne 
(voir point 10). Malheureusement, il y a quelques 
problèmes. 





6- La fonction NUM ne vous donne la valeur que du 
premier octet de la chaîne. Vous devez conserver une 
copie du reste de la chaîne pour pouvoir l’étudier. 
J'utilise le programme suivant : 


« 
DUP 
è 999 SUB 


NUM HEX R-B 


pour donner la valeur hexadécimale du premier octet 
au niveau 1 et le reste de la chaîne au niveau 2. 


7- Ensuite, les nombres et les adresses sont stockés en 
mémoire à l'envers. Ainsi) le nombre 
1.2345443424E104 est représenté par la chaîne 
hexadécimale 0123454443424104 (soit le signe, suivi 
des 12 chiffres de la mantisse et des trois chiffres de 
l’exposant). Si vous mettez deux copies de ce nombre 
sur la pile et si vous exécutez #261031 SYSEVAL (en 
décimal), vous verrez le nom ABCD ajouté au menu 
USER. Le dernier octet (04) est interpreté comme la 
longueur du nom et les 4 octets précédents 
(44434241) sont utilisés comme nom. 41 représente À, 
42 represente B, et ainsi de suite. C’est le code ASCII 
également utilisé par la HP-41 ou le HP-71. En 
d’autres termes, le nombre est effectivement stocké 
comme 04, 41, 42, 43, 44, 45, 23, 01. Le tout est 
précédé de l’adresse de la routine définissant les 
nombres réels, comme je l’ai déjà indiqué, mais elle 
est ignorée par le STo synthétique. Les adresses sont 
également stockées à l’envers. Par exemple, l’adresse 
de SYsEvAL est #1A582 et si vous examinez un 
programme contenant cette fonction, vous trouverez 
les octets 2X, 58, LA ou 82, AS, X1. La première 
forme représente 1A582 précédé d’un quartet 
quelconque X le tout stocké à l’envers. La deuxième 
forme est similaire, mais le quartet est ajouté après 
l'adresse. Tout ceci ne rend pas le décodage facile 
mais vous pouvez toujours écrire un petit programme 
pour effectuer l’inversion. 


8- Nous avons vu dans ce qui précède que les 5 
premiers quartets d’un objet au niveau 1 de la pile 
sont perdus et que l’octet suivant est utilisé comme 
longueur de la chaîne. Pour étudier la totalité de 
l'objet, mettez le dans une liste puis stockez la liste 
avec #261031. Ainsi les éléments perdus font partie 
de la liste et non de l’objet. L’octet utilisé pour définir 
la longueur de la chaîne sera 96 en hexadécimal, ce 
qui vous permet d'étudier des objets importants. Les 
trois premiers quartets du nom constitueront le reste 
de la définition de fonction, ils seront suivis par les 
octets constituant l’objet. 
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9- Si la chaîne de nom que vous avez créé contient au 
moins un caractère ", alors seuls les caractères 
précédant le premier " seront utilisés. Une manière de 
résoudre ce problème est d'appuyer sur la touche 
située à la droite de la touche SHIFT pour rentrer 
dans le menu d’édition, et de remplacer les " (code 22 
hexadécimal) par des ” (code 27 hexadécimal) par 
exemple. 


10- Le nom peut également contenir des caractères 
nuls et fin de ligne (codes 00 et OA hexadécimal). Les 
manuels ne sont pas très clairs à propos du caractère 
nul : ils indiquent simplement que vous ne pouvez pas 
éditer une chaîne contenant ces caractères. La raison 
est qu’il est utilisé pour marquer la fin de chaîne. On 
peut obtenir de telles chaînes avec la méthode décrite 
précedemment. Si vous appuyez sur [ENTER], le 
caractère nul sera compris comme une fin de chaîne 
(comme pour “). Pour vous débarasser des caractères 
nuls, fin de ligne et ", procédez comme suit : 
a- allez dans le menu d’édition (voir point 9 plus 
haut), 
b- appuyez sur [ 11<] pour vous rendre au début de la 
É; 
C- appuyez sur [ ](>] pour aller à l’endroit où le 
HP-28C pense qu’il y a une fin de ligne. C’est soit le 
premier nul, soit un caractère fin de ligne, soit la vraie 
fin de la ligne. Si le caractère immédiatement à 
gauche du curseur est un espace, vous êtes 
probablement sur la vraie fin de chaîne, sinon le 
curseur s’est arrêté sur un caractère nul ou fin de 
ligne. En général c’est un nul : notez sa position et 
remplacez-le par un autre caractère (j'utilise Z pour 
zéro). Si le caractère est un seul nul, alors dès que le 
Z l'aura remplacé, de nouveaux caractères aparaîtront 
à sa droite. Cependant, il peut y avoir plusieurs nuls et 
vous pouvez avoir à répéter le processus [ J1{>] z 
plusieurs fois. Au bout d’un certain nombre de 
répétitions, vous verrez apparaître de nouveaux 
caractères ou l’espace qui marque la fin de la chaîne. 
d- Si après avoir répété plusieurs fois le processus 
décrit ci-dessus, vous ne voyez pas apparaître de 
nouveaux caractères à la droite du curseur, vous êtes 
sans doute arrivé sur une fin de ligne. Vous pouvez le 
savoir en pressant [ENTER). S'il y a une fin de ligne 
dans la chaîne, elle sera visualisée par un petit carré 
plein (le symbole des caractères non visualisables), 
suivi de Z, et d’autres caractères. Le caractère fin de 
ligne est difficile à traiter : une approche est de créer 
une nouvelle version de la chaîne que vous êtes en 
train d'analyser avec une nouvelle commande avant le 
caractère de fin de ligne. Comme cette commande 
fera 5 quartets, les O0 et À se retrouveront dans deux 
octets différents. Une autre méthode est de trouver la 
position du caractère de fin de ligne comme décrit 
plus haut puis simplement d’appuyer sur [ENTER] en 
acceptant le fait que le prochain nul ou “ sera traité 
comme fin de chaîne. 
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e- Je repète le point c (et d si nécessaire) jusqu’à ce 
que je sois sûr d’avoir atteint la fin de la chaîne ou 
que suffisamment de nuls aient été enlevés pour 
permettre d'étudier la partie intéressante de l’objet. 
C’est une question de bon sens : les chaînes peuvent 
être longues et le HP-28C a peu de mémoire si bien 
qu’il n’est pas toujours possible d’analyser des chaînes 
entières, en particulier si vous utilisez la mémoire à 
d’autres fins. 

f- Appuyez sur [ ][<] pour retourner au début de la 
chaîne et utilisez [>] pour remplacer les “ par des ’ en 
notant la position du caractère. 

g- Appuyez sur [ENTERJpour déposer la chaîne au 
niveau 1 où elle sera analysée. 


Maintenant, vous pouvez utiliser le programme 
présenté au point 6 pour analyser la chaîne ou écrire 
un autre programme convenant mieux à vos besoins. 
N'oubliez pas de prendre en compte les Z et ’ utilisés 
pour remplacer les nuls et les ". 


Bien, tout ceci est très utile mais je n’ai pas encore 
trouvé de PEEK et de POkE qui seraient indispensables. 
Au moins, le langage machine du HP-28C est le 
même que celui du HP-71 ce qui devrait nous aider à 
interpréter ce que nous lirons. Dans le même temps, 
il devrait être possible d’écrire des programmes pour 
faire PEEK et POKE en créant de longues chaînes de 
caractères contenant les octets du programme. Il 
suffira alors de connaître l’adresse de ces chaînes et 
d'utiliser SYSEVAL pour les évaluer, il faudra également 
connaitre le code qui dit au HP-28C qu’une chaîne de 
quartets est une routine en langage machine et non 
l'adresse d’une routine. (Certaines opérations 
exécutées par SYSEVAL retournent le contenu de la 
mémoire sur la pile comme des nombres binaires, il 
devrait être possible de trouver un SYSEVAL qui 
retourne le valeur du compteur programme : ceci 
serait très utile. 


Vous trouverez après cet article la liste des points 
d'entrée promise au début. Toutes les fonctions 
semblent être dans une zone comprise entre #17000 
et #10000 sauf les structures de programme (telles 
que 1F, WHILE, NEXT) qui sont comprises entre #27CB4 
et #28340. J'ai ajouté quelques points d’entrée qui ne 
correspondent pas à des commandes mais qui se 
trouvent dans les mêmes zones tels que : « » ou ! 
notez que - suivi de « est différent de - suivi de :. J'ai 
trouvé les adresses des commandes qui définissent 
différents types d’objets mais je n’en ai pas encore fait 
la liste. Toutes les adresses sont données en 
hexadécimal. 


Voilà, amusez vous bien avec tout ceci, et n’hésitez 
pas à faire part de vos découvertes. 


edr. 


nom dist. à La 


com. 


com. suiv. 


edr. nom dist. à le 


com. 


com. suiv. 


177F1 
17825 


DUP 
SWAP 


17859 DROP2 


17880 
178C6 
178FF 
17933 
1796C 
179E8 
17AB5 
17843 
17C03 
17cC41 
17C89 
17062 
17E36 
17F7D 
18065 
1830A 
188AE 
18950 
18A1F 
1880C 
188F9 
18CE1 
18003 
18E6B 
18EE5 
18F41 
18F90 
190FD 
19271 
1939F 
1951D 
195DD 
196C0 
19744 
197C8 
19840 
1993E 
19902 
19AAF 
19860 
19011 
19c81 
19CF1 
19061 
19001 
19E69 
19EED 
19F53 
19F98 
19FE3 
14028 


OVER 
DROPN 
PICK 
ROLLD 
+LIST 
RE 
SUB 
C-R 
POS 
STR+ 
CHR 
+ARRY 
RDM 


PUT 
GET 
SAME 
OR 
XOR 


v 


CONJ 


+HMS 
HMS+ 
RNRM 
DET 


121 
121 
121 
116 
116 
76 
76 
46 
46 
186 
206 
226 


1780B DUP2 
1783F DROP 
17873 ROT 
178A7 DEPTH 
178E0 DUPN 
17919 ROLL 
1794D CLEAR 
17990 R-C 
17A4B 1M 
1780B LIST-+ 
17885 S12E 
17C27 =STR 
17C65 NUM 
17CAD TYPE 
17DDB ARRY-+ 
17EA0 CON 
18014 TRN 
1808B PUTI 
18360 GETI 
188D7 AND 
189C9 NOT 
18498 == 
18885 < 
18C60 « 
18055 = 
18E1F ABS 
18EB7 * 
18F13 MINR 
18F6F i 
19057 - 
191CB / 
19353 INV 
193F5 P-R 
19598 SIGN 
1964C SQ 
19702 COS 
19786 SINH 
1980A TANH 
198C5 ACOS 
19980 ASINH 
19A36 ATANH 
19AF1 LN 
198CF ALOG 
19C49 EXPM 
19C89 IP 
19029 FLOOR 
19099 XPON 
19E1D MIN 
19EB5 MANT 
19F25 R-D 
19F77 HMS- 
19FBF HMS- 
1A007 CNRM 
1A04F DOT 


26 
26 
26 
31 
31 
26 
31 
91 
106 
56 
126 
26 


181 
91 
221 
81 
591 
1358 
121 


116 
116 
116 
126 


14073 CROSS 
1A0C5 % 
1A15D XCH 
1A189 RDZ 
14242 STO 
1A32A MEM 
1A3A4 CLUSR 
1A3DD ABORT 
1A411 ERRN 
1A463 IFTE 


1A582 SYSEVAL 


1A60A RND 
1A65C NUM 
14761 WAIT 
1A79F KEY 
1A7DD SF 
14857 FS? 
1A806 DEG 
1A91E FIX 
1A98E ENG 
1ASEO FS?C 
1AAB7 BIN 
1AABB HEX 
1AAEF STWS 
1AB32 RCLF 
1ABED STOZ 
1AC3F RCLZ 
1AC9B Z- 
1ACCF CORR 
1AD03 MAXZ 
1AD37 MINE 
1AD6B TOT 
1AD9F LR 
1ADDD UTPC 
1AE25 UTPF 
1AE6D SCLZ 
1AEA1 COLZ 
1AF5SC SNEG 
18076 STO+ 
182AD STO/ 
18683 EXGET 
186DF OBSUB 
18727 FORM 
18797 EXPAN 
187F3 QUAD 
18845 TAYLR 
18914 RCEQ 
18952 ROOT 
18870 ASR 
1BBB8 RLB 
18C00 RRB 
18C48 SLB 
18C90 SRB 
18CDB B-R 
1803E INDEP 
18D90 PMAX 
1BDD8 CENTR 
18E20 *H 


76 


116 
56 
31 
26 
26 

196 


268 


61 
61 


56 
56 
81 
26 
26 
36 
31 
56 
26 
26 
26 
26 
26 
26 
26 
36 
36 
26 


151 
281 


"y 
ù œ & & à 


—2 


FERRER ESRREEERLIES 


1A097 RSD 
1A111 XT 
1A19F RAND 
1A1DD RCL 
14286 PURGE 
1A362 ORDER 
1A3C3 KILL 
1A3F7 ERRN 
1A42B EVAL 
1A527 IFT 
1ASDC DISP 
14638 BEEP 
1A67B LAST 
1A785 CLLCD 
1A789 CLMF 
1A81A CF 
1A894 FC? 
1ABFA RAD 
14956 SCI 
1A9C6 STD 
1AA31 FC?C 
1AAAT DEC 
1AAD5 OCT 
14813 RCWS 
1A851 STOF 
1AC25 CLZ 
1ACS9 2+ 
1ACBS NZ 
1ACE9 COV 
1AD1D MEAN 
1AD51 SDEV 
1AD85 VAR 
1ADB9 PREDV 
1AE01 UTPN 
1AE49 UTPT 
1AE87 DRWE 
1AECS SINV 
1AFF3 SCONJ 
1818F STO- 
183CB STO* 
186A7 EXSUB 
18703 OBGET 
1875F COLCT 
187CF 1SOL 
18817 SHOW 
18873 à 
18933 STEQ 
189F8 
18894 RL 
1BBDC RR 
1BC24 SL 
1BCéC SR 
1BCB4 R-B 


1BCFC CONVERT 


1BD6C PMIN 
1BDB4 AXES 
1BDFC RES 
1BE44 *W 
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46 
76 
26 
101 
116 


26 
26 
56 
91 
46 
36 
230 
26 
36 
61 


36 
56 
26 


26 
26 


156 
26 


26 
26 
26 
26 
26 
36 
36 
36 
26 
151 
131 
286 
696 
56 
36 
56 
36 
46 
161 
31 
376 
36 
36 
36 
36 
36 


36 
36 
36 
36 


1BE68 DRAW 31 18E87 PIXEL 36 
1BEAB DRAX 31 1BECA PR1 26 
1ÎBEE4 PRSTC 26 1BEFE PRST 26 
18F18 CR 26 18F32 PRUSR 26 
1BF4C PRVAR 36 18F70 PRMD 26 
1BF8A PRLCD 48426 27CB4 1F 21 
27CC9 THEN(IF) 96 27029 ELSE 31 
27048 END(1F) 21 27050 pes + avant « 26 
27077 + avant « 311 êTEAE + avant ! 66 
èTEFO fin + 26 27FOA « 21 
27F1F » 21 27F34 ‘ début nom 26 
2TF4E ! fin nom 21 27F63 WHILE 31 
27F82 REPEAT 66 27FC4 END(WHILE) 31 
27FE3 DO 31 28002 UNTIL è1 
28017 END(DO) 66 28059 START 71 
280A0 FOR 91 280FB NEXT 302 
28229 STEP 59 28264 1FERR 199 
2832B THENÇ(IFERR) 21 28340 HALT 


Notes : 


1- Cette table montre que les commandes sont 
stockées par groupes logiques. 


2- La plupart des commandes sont séparées de 5n +1 
quartets. 


3- La distance à la commande suivante peut-être une 
indication sur la complexité de la commande ou sur la 
présence de code entre les deux commandes. 


4 J'ai inclus quelques entités qui ne sont pas vraiment 
des commandes mais qui font partie de la structure 
des programmes telles que « ou ». D’autres élements 
tels que les entiers de -9 à 9 ou les majuscules 
auraient pu être inclus. 


5- Cette liste a été préparée par Wlodek 


Mier-Jedrzejowicz avec certaines adresses trouvées 
par Bruce Bailey. Faites part de vos découvertes ! 


Wlodek Mier-Jedrzejowicz 





PEEK SUR HP-28 


Lors de la Conférence Internationale de Copenhague, 
Wlodek Mier-Jedrzejowicz nous a présenté le tout 
dernier outil qu’il a réalisé pour l’étude de la structure 
interne du HP-28C. Il s’agit d’un programme prenant 
sur la pile une adresse hexadécimale et retournant le 
contenu des 8 octets situés à partir de cette adresse. 


JPC 47 Page 14 


Le fonctionnement est assez complexe et il faut 
souhaiter que Wlodek le documente complètement. 
Dans les grandes lignes, il s’agit de créer un 
programme artificiellement dans la partie haute de la 
mémoire de la machine et de demander son exécution 
par un SYSEVAL approprié. 


Le programme est donc le suivant (vous devez être en 
mode hexadécimal pour le rentrer) : 


RCWS SWAP 28 STWS SLB 64 STWS 
#800E6FB5100000F1 + 
#63013314FF7B SWAP 
#E6F9514FFFO0F1 
#C808961241131311 4 

LIST 'X1! DUP PURGE STO 
#DUMMYSTR! :X21 DUP 

PURGE STO #4FF76 

SYSEVAL STWS !X2! 


Vous pouvez nommer ce programme PEEK. Un 
exemple amusant d'utilisation est : 


#3FE7A 
[PEEK] --> 1: “Version " 
#3FE8A 
[PEEK] --> 1: “1BBCopyr' 
#3FE9A 
[PEEK])] --> 1: “ight(c) " 
#3FEAA 
[PEEK] --> 1: “Hewlett-" 
#3FEBA 
[PEEK] --> 1: “Packard " 
#3FECA 


[PEEK] --> 1: "1986" 


En d’autres termes, entre les adresses #3FE7A et 
#3FED2 on trouve le message “Version 
1BBCopyright(c) Hewlett-Packard 1986". Il ne vous 
reste plus qu’à explorer la machine et n’oubliez pas de 
faire part de vos découvertes. 





LES ANOMALIES DU HP-28C 


Voici la liste des anomalies du HP-28C connues à ce 
jour. Cette liste nous a été communiquée par 
Hewlett-Packard, que nous remercions ici vivement. 


Ne vous alarmez pas ! Dans la quasi-totalité des cas, il 
s'agit de défauts mineurs qui n'afjfectent en rien 
l’utilisation habituelle de cette prodigieuse machine. 





La liste des problèmes les plus importants est 
maintenant fournie avec les machines. 


Vous n'avez donc pas besoin d'appeler le Support 
Technique si vous vous trouvez confronté à un de ces 
petits problèmes... 


Utilisation de SOLVR 


Le fait d'utiliser lalgorithme de résolution 
d'équations avec un programme qui n’augmente pas 
la « profondeur » de la pile opérationnelle (c’est à 
dire le nombre d'objets de la pile) peut corrompre 
celle-ci ; cette situation sera marquée par l’apparition 
du message System Object sur la pile. Par exemple : 


[SOLV] 

« À DROP 
[ENTER] 

[STEQ] [SOLVR] 
[] [LA] 


donne sur la pile : 


Non-real Result 
2: System Object 
1: System Object 


Si ceci se produit effectuer immédiatement un 
«System Halt» de la manière suivante : 


Appuyez sur [ON] et maintenez la pression, appuyez 
sur [*) puis relachez LON). 


Il ne faut pas faire [DROP] ou ICLEAR). Si vous essayez 
de faire disparaître System object ou d'effacer la pile, 
vous risquez de provoquer une remise à zéro du 
calculateur. 


Suppression d’une ligne vide en ligne de commandes 


Pour supprimer une ligne vide en ligne de 
commandes, placez le curseur sur la ligne vide et 
appuyez sur [DEL). 


N’appuyez pas sur [J1LINS] (qui efface tous les 
caractères à gauche du curseur) lorsque le curseur est 
placé sur une ligne vide. Ceci corrompt la ligne de 
commande et toutes les opérations subséquentes ; 
cette situation peut aboutir à une remise à zéro du 
calculateur. Si vous corrompez la ligne de commande, 
appuyez immédiatement sur [ON] pour supprimer la 
ligne de commande ou sur [ENTER] pour l’évaluer. 








Division faisant intervenir des entiers binaires 


Le résultat de la division est incorrect lorsque le 
dividende (au niveau 2) est un entier binaire de 64 
bits dont le bit de poids le plus fort est à 1 (c’est à 
dire, lorsque # n 2 8000000000000000,- . 


[BINARY] 

[HEX] 64 [STWS] 

#0 [CENTER] 1 [-] --> # FFFFFFFFFFFFFFFF 
Pre > # 1FFFFFFFFFFFFFFF 


Le résultat devrait être : # 1111111111111111. Il n’y a 
pas de solution de remplacement. 


Comparaison d'égalité entre entiers binaires 


Les entiers binaires de tailles différentes sont toujours 
considérés comme inégaux. Les entiers binaires que 
vous saisissez au clavier ont 64 bits ; ceux qui sont 
obtenus par calcul sont tronqués en fonction de la 
taille de mot en vigueur. Avant de tester l’égalité de 
deux entiers binaires, assurez vous que chacun est le 
résultat d’une opération effectuée avec la la taille de 
mot courante. 


[BINARY] 16 [STWS] 
#0 [STACK] [DUP] [DUP] 
(+) [TEST] [NEXT] [==] ---> 0 


Le résultat devrait être 1 (vrai). On a comparé un 
entier de 64 bits et le même entier sur 16 bits, car t+] 
retourne un resultat sur 16 bits. 


Le petit programme suivant tronque deux entiers 
binaires en fonction de la taille de mot courante et 
test leur égalité : 


« 0 + SWAP O0 + == » 


SOLVR et flags 57 ou 58 


Si les indicateurs binaires 57 ou 58 sont armés, la 
fonction SOLVR peut renvoyer une erreur de 
dépassement de capacité pendant le processus 
d’itération. Par exemple : 


[TEST] 57 [SF] 58 (SF) 
‘X/X-2' [ENTER] [SOLV] [STEQ] [SOLVR] 


1E490 [X] 

[ ] [IX] ---> Overflou 
2: 1.00 
1: 2.00 
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SOLVR peut donner "Sign Reversal" à tort. 


SOLVR peut renvoyer le message "Sign Reversal” 
sans trouver les points voisins où la fonction change 
de signe. Il peut y avoir une discontinuité entre les 
valeurs donnant des signes inverses. Par exemple : 


[SOLV] ‘(-27)"N=-3! 

[STEQ] [SOLVR] 

O CN] 

[ IN] ---> N:0 
Sign Reversal 
1: 0 


Unités définies par l’utilisateur 


Des unités utilisateur qui sont des multiples de degrés 
Fahrenheit ou (Celsius ne sont pas converties 
correctement. Par exemple : 


€ 10 "°F" } CENTER] ‘F10' [STO] 

1 CENTER] ‘F10' [ENTER] ‘°F! [ENTER] 

[CONVERT] ------- > 2: -449.67 
1: Ur 


Le résultat correct est 10 °F. 


Définition de l’année 

L’unitée année (yr) compte 365 jours. Elle aurait dû 
compter environ 365.25 jours pour rester cohérent 
avec la définition de l’année lumière (lyr). 


Fonction RND 


La fonction RND ne fonctionne pas correctement en 
mode FIX. Par exemple : 


.7 [ENTER] 
(MODE) O [FIX] ----- > 1 
[REAL] CRND] ------- > 0 


Le Manuel de Référence (page 272) décrit le 
fonctionnement de RND en mode FIX. La 
description correspond à ce que fait le calculateur, 
mais ce n’est pas correct. 


Comparaisons de chaînes 


La comparaison de chaînes ne donne pas de résultat 
correct si les chaînes sont de même longueur. Par 
exemple : 





WAAA'! [ENTER] 
WAAB'"' [ENTER] 
[<] CENTER] ----- > 0 


Comme décrit page 255 du Manuel de Référence, cet 
exemple devrait retourner 1 (vrai). 
EDIT / CHS 


La séquence de touches suivante donne un résultat 
inattendu quand on appuye sur [CHS] : 


[[2 31] [ENTER] 


[EDIT] 
[>] [>] [>] [>] [>] amène le curseur sur le 3 
& [CHS] ----> [[2 4-]) 


Au lieu de donner -4, la séquence 4 1ICHS)] donne à 
l'affichage : [12 4-1]. 


EEX 


Suivant la position du curseur, l’utilisation de IEEX]) 
pendant que l’on écrit une expression algébrique peut 
provoquer de résultats inattendus. Utiliser plutôt la 
lettre E dans ces cas si l’on veut garder la notation 
exponentielle. 





HP-41 


J. Elhay 
R. Dine 


Probabilités 
Les nombres premiers 





18 
19 
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PROBABILITES 


Voici trois petits programmes que certains pourront 
trouver utiles. Tous les trois sont employés dans le 
domaine des probabilités discrètes. 

Ils évaluent des termes ou des sommes partielles de 
distributions de Poisson, binomiale ou 
hypergéométrique. 

Loi de Poisson 


Faire xeQ “poissp". Le programme affiche le message 
MREADY". 


Les 5 touches [A] à 1E) ont dès lors la signification 
suivante : 


(A) : évalue P(X=x), après avoir demandé les valeurs 
de àetx. P(X=x) = (e°*à*)/x! 


[8) : évalue P(X=x) pour un nouvel x et le même 1. 
(c) : évalue P(X « x). 
{D} : évalue P(X < x) pour un nouvel x et le même 1. 


[E) : évalue P(X >x). 


Loi binomiale 


Le programme 81Mob a un fonctionnement similaire, 
excepté qu’il demande le nombre d'échantillons n, la 
proportion p et finalement x. 


Loi hypergéométrique 
Le programme HYPGb demande la population N, le 


nombre de défauts D, la taille de l'échantillon n et 
finalement x. 


Ces programes sont relativement rapides, car j'utilise 
le schéma de Horner pour les distributions 


cumulatives. D’autre part, il y a demande explicite de 


toutes les valeurs pour les touches [AJ], IC) et [LE], 
alors que les touches 18) et [D] ne requièrent que x. 


Bonnes statistiques... 


Jack Elhay 
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OT*LBL 
SF 27 


O7*LBL 
XEQ 20 


O9*LBL 
XEQ 21 





WPOISSD" 
FIX 4 "READY" AVIEW STOP 
À 
B 
RCL 01 RCL 03 Y"X RCL 02 * RCL 03 


FACT / GTO 01 


20*LBL 20 

MLAMBDA 7" PROMPT STO 01 CHS EX STO 02 RTN 
28*LBL 21 

“X= 2"  PROMPT STO 03 RTN 

33*LBL C 

XEQ 20 

35*LBL D 

XEQ 21 RCL 01 ENTER” ENTER” ENTER” 

41*LBL 02 

RCL 03 / 1 + * DSE 03 GTO 02 RCL 01 / 
RCL 02 * FS?C 00 RTN GTO 01 

S6*LBL E 

SF 00 XEQC 1 X<>Y - 

62*LBL 01 

MP="  ARCL X AVIEW RTN END 


O1*LBL 
SF 27 


O7*LBL 
UN= 90 
PROMPT 
/ STO 


30*LBL 
XEQ 20 


32*LB8L 
nX= 74 
ENTER” 


41*LBL 
RCL 01 
DSE 10 


58*LBL 


npa=n 


63*LBL 
SF 00 


"B]INOMD"!! 

FIX 4 MREADY" AVIEW STOP 
20 

PROMPT STO 00 1 + STO 01 
STO 02 1 X<>Y - STO 03 RCL 02 X<>Y 
04 RCL 03 RCL 00 Y”X STO 05 RTN 


Hp= 9 


D 
PROMPT STO 10 RCL 04 ENTER” 
SF 01 


ENTER" 


00 
RCL 10 - RCL 10 / FC?2C 01 * * 1 + 
GTO 00 RCL 05 * FS?C 00 RTN 


02 


ARCL X AVIEW RTN 


E 


XEQ C 1 X<>Y - GTO 02 





70*LBL A 
XEQ 20 


72*LBL B 

UX 7"  PROMPT STO 10 RCL 00 X<>Y XEQ 98 
STO 09 RCL 02 RCL 10 Y*X ST* 09 RCL 03 
RCL 00 RCL 10 - Y”"X ST* 09 RCL 09 GTO 02 


92*LBL 98 
X=0? GTO 99 X<>Y ENTER” X<> Z - X=0? GTO 99 
LASTX X<=Y? X<>Y RDN 1 X<> 27 


107*L8L 01 
ST* Z OX<>Y ST/ Z X<>Y DSE X DSE Y GTO 01 
X<> Z RTN 


117*LBL 99 
1 RIN END 


O1*LBL “HYPGD" 
FIX 4 SF 27 MREADY" AVIEW STOP 


07*LBL 80 

WPOPN 7"  PROMPT STO 03 STO 02 STO 07 
"DEFECTIVES?" PROMPT STO 01 ST- 02 ST- 07 
"SAMPLE SIZE?" PROMPT STO 04 ST- 07 RTN 


23*LBL 70 

"X= 2" PROMPT X=0? GTO 75 STO 05 RCL 02 

RCL 04 XEQ 20 STO 06 RCL 03 RCL 04 XEQ 20 
ST/ 06 71 ST+ 01 ST+ 04 ENTER" ENTER” ENTER“ 


43*LBL 00 

RCL 01 RCL 05 -+ RCL 04 RCL 05 - %* RCL 07 
RCL 05 + / RCL O5 / %* 1 + DSE 05 GTO 00 
RCL 06 * FS?C 00 RTN RTN 


67*LBL 02 
MP=!"  ARCL X AVIEW RTN 


72*LBL C 
XEQ 80 XEQ 70 GTO 02 


76*LBL E 
SF 00 XEQ 80 XEQ 70 1 X<>Y - GTO 02 


84*LBL 20 
X=0? GTO 99 X<>Y ENTER" X<> Z - X=0? GTO 99 
LASTX X<=Y?7 X<>Y RDN 1 X<>2z 


99*LBL 01 
ST* 2 X<>Y ST/ Z X<>Y DSE X DSE Y GTO 01 
X<> Z RTN 


109*LBL 99 
1 RTN 





112*LBL A 
XEQ 80 


114*LBL B 
WX 71 PROMPT 


117*LBL 75 

STO 05 RCL 01 RCL 05 XEQ 20 STO 09 RCL 02 
RCL 04 RCL 05 - XEQ 20 ST* 09 RCL 03 RCL 04 
XEQ 20 ST/ 09 RCL 09 FS?C 00 RTN GTO 02 END 





LES NOMBRES PREMIERS 


Le but est de savoir si un nombre est premier et de 
connaître les nombres premiers consécutifs. 


UTILISATION 


PREM 

A l'appel de "8 1MP", entrer le nombre impair étudié 
n. Le programme divise ce nombre par les nombres 
impairs consécutifs de 3 à SQR(n). S’i n’y a eu aucun 
reste nul, le nombre n est déclaré premier et affiché, 
et le programme continue avec n +2 etc. Les nombres 
premiers successifs sont affichés jusqu’à ce que l’on 
arrête par [R/S]. Les résultats sont imprimés si une 
imprimante est branchée. 


PREMI et PREM2 

Le programme PREM est simple, mais devient lent si 
n est grand. Si n est aux environs de 1000000, il faut 
une moyenne de 200 secondes entre chaque résultat. 
Ne pourrait-on diviser par les nombres premiers 
consécutifs au lieu des nombres entiers impairs ? Au 
lieu de faire environ 500 divisions, on en ferait environ 
168 (nombre de nombres premiers de 3 à 1000), soit 
le tiers. Encore faut-il, me direz-vous, avoir ces 168 
nombres ? Vous les avez : le programme PREMI1 
insère ces nombres premiers dans les registres R10 à 
R6S (il faut environ 16 minutes). 


Ensuite, le programme PREM2 réalise le calcul par 
division avec les nombres premiers successif de 3 à 
SQR(n). Les résultats sont affichés et éventuellement 
imprimés comme pour PREM. 

CONCLUSION 


On obtient les résultats suivants. 
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A parti du nombre entré à la demande du  37*L8L 05 
programme, voisin de 1000000 (par exemple 988033 FS?C 02 GTO 06 1 E3 * ST+ IND 02 SF 02 


qui est premier), on trouve les temps suivant : GTO 03 
PREM PREM2 BASIC (APPLE Ile) 45*LBL 06 
988033 170 sec. 118 sec. 7 sec. ST+ IND 02 CF 01 1ISG 02 
988051 390 sec. 298 sec. 14 sec. 
988061 570 sec. 420 sec. 20 sec. 49*LBL 03 


2 ST+ 00 GTO O4 END 
Nous n’avons pas beaucoup gagné en passant de 
PREM à PREM2. D'autant plus qu’il aura fallu  O1*LBL "PREM2" 
entrer les données de R10 à R6S. Mais nous nous FIX 0 #NB IMP ?" PROMPT STO 00 
sommes bien amusé et nous avons montré qu’on sait 
se servir d’une HP-41. Mais on n’est pas plus fier pour  O06*LBL 03 
cela, car j'ai fait un programme basic de 7 lignes avec  RCL 00 SQRT STO 01 10 STO 02 
le même organigramme que PREM. Ses 
performances sont indiquées dans la dernière colonne 12*LBL 02 
ci-dessus : 28 fois plus vite que le programme PREM, RCL IND 02 1 E6 / ENTER" INT XEQA 1 E3 * 
21 fois plus vite le programme PREM2. A noter que ENTER" INT XEQ A 1 E3 * XEQA 1 ST+ 02 
sur un Questar M (Bull) j'avais exécuté 10 fois plus  GTo 02 
vite seulement. 
30*LBL A 
René Dine (293) RCL 01 X<>Y X>Y? GTO 04 RCL 00 X<>Y MOD 
X=0? GTO 05 RDN RDN FRC RIN 


NDLR : sur HP-71, si on utilise JPCLEX et en particulier la &4*LBL 04 


fonction PRIM de Guy Toublanc, on obtient les résultats suivants : RCL 00 VIEW X 

988033 .52 sec. 

988051 .50 sec. &7*LBL 05 

988061 .50 sec. 2 ST+ 00 GTO 03 END 
Soit entre 13 et 40 fois mieux que sur un Apple Ile. L'honneur de 

HP est sauf ! 


O1*LBL MPREM" 
FIX O “NB IMP?" PROMPT STO 00 


D6*LBL 04 
RCL 00 SQRT INT 3000,02 + 1000 / STO 01 


15*LBL 01 
RCL 01 INT RCL 00 X<>Y MOD X=0? GTO 03 
1SG 01 GTO 01 RCL 00 VIEW 00 


27*LBL 03 
2 ST+ 00 GTO 04 END 


O1*LBL "PREMI" 
FIX O 3005007 STO 10 11,065 STO 02 9 STO 00 


O9*LBL 04 
RCL 00 SORT INT 3000,02 + 1000 / STO 01 


18*LBL 01 

RCL 01 INT RCL 00 X<>Y MOD X=0? GTO 03 

1SG 01 GTO 01 RCL 00 VIEW 00 FS? 01 GTO 05 1 
E6é * STO IND 02 SF 01 GTO 03 
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FORTH 


X. Bille 


ASSEMBLEUR 
P. David & J. Taïllandier 
J. Buitenhuis & F. van der Windt 


J. Baudier 
J. Elhay 


BASIC 


E. Gengoux 


E. Gengoux 
P. Nicodème 


LE COIN DES LHEX 


Tracé de courbes (acte II) 


Assembleur pour HP-71 

Module de développement 
L’assembleur du HP-71 (acte III) 
Inversez vos drapeaux 


UNPURGE 


Programme "UNPURGE" 
Programme "GAO" (voir JPC 46) 


22 


30 


31 


39 
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TRACE DE COURBES 
(ACTE Il) 


Dans JPC 42 était paru un programme de tracé de 
courbes sur l’afficheur du HP-71. Cette première 
version a montré d'énormes inconvénients 
d'utilisation, en particulier le manque de souplesse. Je 
présente aujourd’hui un programme moitié Forth, 
moitié Basic. La partie graphique possède de 
nombreux points communs avec la version antérieure. 


PRINCIPES 


Une matrice de 132*128 pixels est créée dans un coin 
de mémoire (dictionnaire Forth) ; chaque pixel est 
adressable individuellement grâce à ses coordonnées. 
Cela suppose l'institution d’une origine dans ce repère 
et la possibilité de définir la valeur d’un pixel. 


Pour simplifier l’utilisation, on définit l’étendue des 
valeurs représentables dans la matrice. Le pas entre 
deux valeurs est calculé tel que le maximum de points 
soit atteint : 132 points en abscisse (axe X’oX), 128 
points en ordonnée (axe Y’oY). 


Au niveau programmation, un certain nombre de 
mots Forth permettent de simplifier au maximum les 
opérations de calcul d’axes, de placement d’un pixel, 
etc. On remarquera sans doute l’analogie qui existe 
entre mes mots de programme et ceux d’une 
calculatrice graphique du commerce ! 


Et l'affichage graphique ? Toujours comme sur la 
première version : l’écran est une fenêtre de 132 par 8 
que l’on déplace selon les ordonnées, de haut en bas, 
en faisant référence à un tableau. La fenêtre est 
déplacée à l’aide des touches de curseur (gestion par 
Basic), le pas étant de 4 pixels. La composition de la 
fenêtre se fait en Forth et en Assembleur. Compliqué 
certes, mais très agréable car rapide. 


Le temps de calcul ? Log x est tracé en 45 secondes 
environ. Ce temps peut s’allonger, en fonction de la 
complexité de la fonction. 


CHARGEMENT 


Le programme comprend trois parties en assembleur, 
Forth et Basic. Il faut augmenter le dictionnaire Forth 
de 2000 quartets, assembler la partie assembleur puis 
compiler la partie Forth. Le programme principal est 
en Basic. 


UN BEL EXERCICE DE STYLE 


Oui, ce n’est qu’un amusement, le temps de calcul est 
bien trop long. Cependant, si tout avait été écrit en 
code machine alors peut-être que... 


Faites tracer cos x + cos 10x. Le résultat, pas brillant, 
bumm ? Il manque une fonction d’interpolation : 
étant donné deux points, valeurs d’une fonction, 
tracer la droite qui les joint. Moi, je vous la laisse sans 
regret ! 


MODE D'EMPLOI 


Le principe sur lequel repose le programme principal 
est que l’état des variables n’est pas modifié entre 
deux exécutions. Dans le cas contraire, vous serez 
amené à relancer le système et réinitialiser les 
variables : RUN B00T. Un menu propose les choix 
suivants : 


OT : pour sortir du programme (out). 


CL : (clear) pour nettoyer la matrice graphique et 
redessiner les axes du repère. 


RN : (range) définit les paramètres du repère, les 
plages de valeurs. Les options possibles sont : 

- P (paramètrique) pour préparer la machine à tracer 
des courbes paramètriques, et 

- F (function) pour tracer les fonctions du type y=f{x). 
Dans les deux cas, le programme connaissant les 
valeurs maximale et minimale, calcule la place des 
axes. Toute introduction incompatible est annulée, 
puis redemandée. Dans le cas des courbes 
paramètrées (x(t),y(t)), le pas de calcul en ft sera 
fourni: T. 


GR : (graphic) donner en face du "=" la valeur littérale 
de la fonction à tracer. Par exemple : 
F(X)=EXP(-.2#*X)*SIN(3*X) 

XCT)=T*COS(.7*T) ; YCT)=T*SIN(.7*T) 

Un son annonce la fin des cogitations. Le nombre de 
valeurs ayant provoqué une erreur est affiché. 


SH : (show) les touches [vi], 1], fg]tvi et Ig)[") 
déplacent la fenêtre-écran de 4 pixels vers le bas ou le 
haut. La touche espace (32) renvoie au menu. 


Le petit «plus» du programme : si le drapeau 4 est 
levé au clavier (SFLAG 4), le pas de calcul est diminué 
de moitié (264 itérations). Double précision, mais 
aussi temps de résolution doublé. Eternel conflit 
vitesse / précision (si, si !). 


Xavier Bille (203) 





Partie Assembleur ; elle est identique à celle parue 
dans JPC 42. On s’y reportera pour de plus amples 
explications. 


here 


deb 


adres 


FORTH 

EQU #2FB893 
WORD  ‘MIX' 
ADOEX 


Ceddi add2 -- add) 
mot qui fabrique une 
RO=A chaine de 132 octets à 
D0O=(5) here partir de 2 chaines de 
® 132 octets 
A=DATO A 
LC(5) #5A 
A=A+C A 
DO=A 
R1=A 
C=DAT1 A 
C=C+1 A 
DATI=C A 
LC(2) #84 
D1=D1+ 5 
R2=C 
GOSUB 
ASL B 
D1=D1- 5 
GOSUB 
DATO=A B 
DO=D0+ 2 
D1=D1+ 5 
C=R2 
C=C-1 B 
?2C#0 B 
GOYES deb 
C=R1 
DATI=C A 
C=RO 
DO=C 
RTNCC 
C=DAT1 A 
CODEX 
A=DAT1 1 
D1=D1+ 2 
CD1EX 
DATI=C A 
RTN 


Partie Forth : 


( crée une structure matrice-graphique ) 


: GRAPH ( GRAPH name) 
CREATE 264 * NALLOT 
DOES> SWAP 264 * + : 


16 GRAPH TABLE 
( TABLE en est justement une ! ) 


( efface La matrice-écran 


s SLEAR 2€ "9 
O0 TABLE 2112 O FILL ; IMMEDIATE 


FVARIABLE XRA 
FVARIABLE YRA 
FVARIABLE ORIX 
FVARIABLE ORY 


xra [resp. yra], valeur d'un point x'ox 


La] 


( [resp. y'oy] 

( orix [resp. ory]l, origine des x [resp. y] 

( trace des axes en fonction des paramêtres du 
( repère 


AXIS ( -- ) 
ORY RCL O0. X<=Y? RDN 128. X>Y? AND 
IF 

RDN FTOI 8 /MOD 

TABLE SWAP 2. ITOF Y°X 

132 FTOI FILL 
THEN 
ORIX RCL 0. X<=Y? RDN 132. X>Y? AND 
IF 

255 RON FTOI 2* 

16 0 

DO 

DUP 1 TABLE + C! 

LOOP 

2DROP 
THEN ; 


( définit l'étendue des valeurs en fonction de 
( données fournies par Basic 


RANGE ( -- ) 

W A" BASICF XRA STO 

" -X1" BASICF F* ORIX STO 
“ B" BASICF YRA STO 

Hu Y2" BASICF F* ORY STO : 


gère Le fenêtre-écran. 

128=16*8 pixels, Le pas de déplacement étant 
de 4 pixels, on a 32 écrans possibles, 

soit O0 <= n <= 31. 


mn mm Ps 


COMPOSE Eee 
è /MOD SWAP O= 
IF 
TABLE 
ELSE 
DUP 1+ TABLE SWAP TABLE MIX 
THEN 264 : 


( Allume un pixel étant donné ses coordonnées 
( réelles. 
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( fonctionne avec des valeurs Basic, X et Y. ) 


: PLOT ES 
ORIX RCL # X" BASICF XRA RCL F* F+ 
FTOI DUP 
131 > OVER O< OR 
1F DROP 
ELSE 
ORY RCL " Y# BASICF YRA RCL F* F- 
FTOI DUP 
127 > OVER D< OR 
1F 2DROP 
ELSE 
8 /MOD TABLE 
ROT 2* + 
SWAP 2. ITOF Y”"X FTOI 
OVER Ca OR SWAP C! 
THEN 
THEN ; 


ASSEMBLEUR 
POUR HP-71B 


Vous vous rappelez peut-être de deux articles parus 
dans JPC 35 et JPC 36 (Juin, Juillet / Août 1986), 
décrivant un assembleur très rapide pour le HP-71, 
tournant sur un gros ordinateur HP. 


Aujourd’hui, cet assembleur est disponible sur les 
ordinateurs compatibles, tournant sous MS-DOS. Le 
portage du programme n’a pas été chose facile, ni 
amusante, mais le résultat est là : vous pouvez 
maintenant avoir, gratuitement, un assembleur rapide 
pour le HP-71. 


Rappelons ce qu'est ce système : c’est un assembleur, 
un éditeur de liens, et quelques utilitaires (générateur 
de table de messages, transfert...). Il vous permet 
d'écrire votre programme source, de l’assembler sur 
votre ordinateur, puis de transférer le Lex résultant 
dans le HP-71. L'intérêt de l'opération est que 
l'assemblage est particulièrement rapide. Sur un HP 
Vectra, il est entre 100 et 200 fois plus rapide que 
l’assembleur du module Forth / Assembleur. 


De plus, il y a un éditeur de liens, ce qui vous ouvre la 
voie de la compilation séparée. Les avantages sont 
nombreux, et les gains énormes. 





Comme nous l’avons mentionné plus haut, ce système 
est gratuit. Si vous êtes intéressé, envoyez-nous une 
disquette 51/4 ou 3"1/2 déjà formattée, ainsi que le 
nécessaire pour la réponse (emballage et timbres). 


En espérant que ceci contribuera à l'essor de 
l’assembleur sur HP-71... 


Pierre David (37) 
Janick Taïllandier (246) 


MODULE DE DEVELOPPEMENT 
POUR LE HP-71B 


Jan Buitenhuis et Fred van der Vindt, de Hollande, 
développent actuellement un module pour le HP-71. 
Baptisé Development Rom, celui-ci contiendra, outre 
le désassembleur décrit ci-dessous, un assembleur, un 
éditeur de liens, un émulateur et un éditeur pleine page. 
Le désassembleur est pratiquement terminé et 
l'assembleur devrait être bien avancé à la fin de l’année. 
Ce module devrait être disponible commercialement 
l'an prochain. 


Le désassembleur est écrit entièrement en 
assembleur, ainsi que tous les autres composants du 
module. Il crée un nouveau type de fichier : Sym. Ces 
fichiers contiennent les noms des symboles et leur 
valeur, et sont utilisés par le désassembleur et 
l’assembleur. 


Le fichier HP71SYM compris dans le module comprend 
tous les points d’entrée supportés du système 
d'exploitation. Nous avons d’ailleurs trouvé quelques 
erreurs de HP qui seront, bien entendu, corrigées. En 
attendant, les voici : 


SPLITA est en #0C6BF et non #0C68F 
STABI1 est en #0D3D9 et non #0D309 


D’autres fichiers Sym contiendront les symboles locaux 
et leur valeur et seront créés par l’assembleur. 


La syntaxe de la fonction de désassemblage est la 
suivante : 


DISASSEMBLES( Sfr [, str2 I, str3 ])) 





str] : offset 
str2 : base 
str3 : fichier SYM 


(Les paramètres ne peuvent pas être des fonctions 
utilisateur) 


Le premier argument, offset, précise l’adresse de 
début de désassemblage sous forme d’un déplacement 
par rapport à base. Si cette adresse de base n’est pas 
précisée, elle vaut “00000”. Dans ce cas, les adresses 
données par le désassembleur seront absolues. Si base 
est spécifiée, par exemple l’adresse de début d’un 
fichier Lex, alors les adresses données par le 
désassembleur seront relatives à base. Si offset est 
passé par référence, alors cet argument sera 
automatiquement incrémenté pour pointer sur 
Pinstruction suivante. Si offset est passé par valeur, il 
ne sera pas modifié. Ceci peut se résumer ainsi : 


DISASSEMBLES(AS) référence : A$ est incrémenté 
DISASSEMBLES$((AS$)) valeur : A$ n'est pas modifié 
DISASSEMBLES("00000") valeur : pas de changement 


Toutes les adresses référencées par des instructions 
telles que GOTO, GOYES ou GoS8vL sont recherchées dans 
un fichier Sym. Si l’adresse est trouvée, le nom du 
symbole sera utilisé plutôt que sa valeur. Les 
références absolues (GOSBVL et GovLNG) sont cherchées 
dans le fichier HP71SYM. 


Les références relatives, c’est à dire toutes les autres, 
sont cherchées dans le fichier sy donné comme 
troisième paramètre. S'il n’y a pas de troisième 
paramètre et si base vaut 0, le fichier HP71SYM est 
utilisé. 


DISASSEMBLES retourne une chaîne de la forme 
suivante : 


00000 COLDST P= 0 


DISASSEMBLES peut être utilisé dans un petit 
programme de la manière suivante : 


10 INPUT “Adresse début : ","?7"1-A$ 

20 INPUT “Adresse fin : ","?":ES$ 

30 DISP DISASSEMBLES(AS) à 1F AS<ES$ THEN 30 
40 END 


Exécutons ce programme entre 0U8A48 et 08A70. Ceci 


donne : 
08A64B NXTSTM ST=0 1 


O8A4B DO=(5) #2F679 
08A52 =DATO A 
08A55 DO=A 

08A58 Az=0 À 
OBASA A=DATO B 





O8A5D CD0EX 

08A60 A=A+C A 
08A62 DO=A 

D8A65 GOLONG RUNRTN 


OBA6B TKSCN+ DO=D0+ 2 
OBAGE DO=D0+ 4 


Il y a quelques différences entre la sortie de notre 


assembleur et ce que fait HP. 


Nous utiliserons dans notre assembleur certaines 
mnémoniques : 


2HST=0 %X... Test Le bit de statut matériel 
HST=0 ZX... Remet à 0 Les bits de statut 
(%... est un masque binaire) 
ASLB décale À à gauche d'un bit 
BSLB décale B à gauche d'un bit 
CSLB décale C à gauche d'un bit 
DSLB décale D à gauche d'un bit 


Ces quatre dernières opérations existent mais ne sont 
pas documentées. 


Ce désassembleur peut être utilisé pour créer un 
fichier source à partir du Lex pour modification et 
assemblage immédiat. 


Quelques mots pour décrire l’assembleur et l'éditeur 
de liens : 


- rapide au moins 30 fois plus rapide que 
l’assembleur Forth. 


- le source peut être divisé en plusieurs parties 
assemblées séparément. L’assembleur crée un fichier 
08J à partir de chaque source. Ces fichiers 08J sont 
réunis par l’éditeur de liens en un fichier LEX ou BIN. Si 
vous changez un des sources, il suffit d’assembler 
seulement ce fichier, d’où un gain de temps énorme. 


- L’assembleur connaît tous les points d’entrée du 
système : plus besoin d’Eau pour ceux-ci. 


- L’assembleur crée un fichier sy contenant tous les 
labels locaux Ce fichier peut-être utilisé par le 
désassembleur et l’émulateur. 


- Les erreurs sont données à la fin du listage. Si une 
erreur fatale se produit, le fichier 084 ne sera pas créé 
mais l’assemblage continuera pour détecter toutes les 
erreurs. 


- Si la pseudo-opération 084 ne figure pas en tête du 
source l'objet ne sera pas créé. L’assembleur 
analysera le fichier source et donnera toutes les 
erreurs de syntaxe. 
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- La pseudo-opération LIST fichier permet de définir 
le fichier de listage. 


- Les sources peuvent être localisés sur des mémoires 
externes (disques..). Le listage peut-être envoyé dans 
un fichier (interne ou externe) ou sur un appareil 
HP-IL. 


- Le fichier oBy est crée en mémoire principale. 


- La génération automatique d’une speed table est 
possible grace à la pseudo-opération SPEED. 


- Une pseudo-opération su8 fournit un moyen simple 
d’implémenter des sous-programmes dans un fichier 
Bin. 


- Pas de FORTH (c’est un avantage). 
- Pas de Woro (c’est un autre avantage). 


- Pas de WORD: (c'est encore un autre avantage 
déterminant). 


Toutes les suggestions sont les bienvenues. Nous 
travaillons maintenant à l’assembleur - ne tardez pas 
trop - qui ne devrait pas être beaucoup plus long à 
faire que le désassembleur l’a été. Nous pouvons 
utiliser pour l’assembleur beaucoup de code et de 
tables développés pour le désassembleur. 


Jan Buitenhuis (296) 
Fred van der Windt 


L'ASSEMBLEUR DU HP-71 
(ACTE Ill) 


Voici donc la suite de notre initiation à l’assembleur 
du HP-71. La dernière fois, nous avions commencé à 
manipuler les registres du microprocesseur et à 
utiliser quelques unes de ses instructions. 


Aujourd’hui, nous allons continuer notre progression 
en accédant à la mémoire. Je rappelle que le 
compteur d’adresse du HP-71 a une longueur de 20 
bits c’est à dire qu’il peut adresser 220 cases mémoire, 
soit un méga quartets, puisque l’unité de mesure en ce 
qui concerne notre ordinateur est le quartet (ou 
nibble). On a donc à notre disposition 512 Ko. 





Avant de commencer à voir quelles sont les 
instructions qui permettent d’avoir accès à cette 
mémoire, nous allons décrire l’organisation de la 
mémoire. Pour cela, il suffit de lire le schéma 
ci-après : 


Organisation de la mémoire du HP-71 : 


00000 --------------...s... 
| | 
| Rom système | 
| | 
20000 f----------..................... | 
| mémoire d'E/S | 
2E100 f-------occccccsosconsene | 
| mémoire d'écran | ” 
2F400 |--------....sssssssss | | 
| Rem système | | 
CFPC6 |------ocossccsocsoscnnmnsese | mémoire 
| mémoire réservée | de 
2F9JE6 |----------ocmssmmsmseussse | base 
| buffer de configuration | | 
RAM Linsinistenrstesersenteusete | | 
| | 
| v 
freseeeseesrssrssnnserssnes |... 
| | * 
| 64 
| mémoire | modules 
| interne / externe | mémoire 
| | 
| v 
ND hein either | ----... 
| | 
| mémoire | 
| indépendante | 
et 
| modules Rom | 
| 
EOOOO f---------.....-................ | 
| | 
FOOOO [----------.--.................. | 
| réservé pour Le débogueur | 
FFCOO J-------cccocsmcnsecosoncse | 


Pour pouvoir utiliser la mémoire de notre machine, le 
jeu d’instructions du microprocesseur doit posséder 
deux types d'instructions : celles de lecture et celles 
d'écriture. Bien entendu, ces instructions sont 
disponibles sur le HP-71, et c’est ce que nous allons 
étudier maintenant : 


D'une manière générale, ces instructions utilisent les 
pointeurs d'adresse DO et D1 qui indiquent l’endroit 
où se fera la lecture ou l'écriture. 





Instructions de lecture : 


A=DATO fs 
C=DATO fs 
A=DATI fs 
C=DATI fs 


avec fs = A, P, WP, XS, X, S, M, B, W ou un nombre n 
compris entre 1 et 16. 


Ces instructions chargent un certain nombre de 
quartets pointés par DO ou D1 dans les registres A ou 
C. Elles permettent donc de remplir un champ d’un 
des accumulateurs en un seule opération. Si fs est un 
nombre n entre 1 et 16, l'instruction chargera n 
quartets à partir de l’adresse contenue dans DO ou D1 
et les mettra de droite à gauche en partant de la 
position 0. Pour comprendre comment cela 
fonctionne, rien de tel que des exemples : 


Si le contenu des registres est : 


A = FE20589ECD5AA8B8D 
C = 15F2EAC5B8DDE36A0 
ES ns] 
DO = 2E350 -> 8001400220041008 


D1 = 00000 -> 2034EE100060F481 
L’exécution de C=DATO M donne : 


C = 14002200410086A0 
[<-- M --->] 


et A=DAT1 7 conduit à : 

A = FE20589EC1EE4302 

Instructions d'écriture : 
DATO=A fs 
DATO=C fs 
DATI=A fs 


DATI=C fs 


avec fs = A, P, WP, XS, X, S, M, B, W ou un nombre n 
compris entre 1 et 16. 


Ces instructions permettent d’écrire un champ (ou un 
nombre de quartets à partir de la position 0) de A ou 
C en mémoire à partir de l’adresse pointée par DO ou 
D1. 


Par exemple, si le contenu des registres est : 


A = 0123456789ABCDEF 
C = FFFFFFFFFFFFFFFF 


2 


DO = 31500 -> 00000000000000000000 
D1 = 316F0 -> 00000000000000000000 


L’exécution de DATO=C w donne : 

DO = 31500 -> FFFFFFFFFFFFFFFF0000 

et DATI=A 3 conduit à : 

D1 = 316F0 -> FEDO0000000000000000 

Nous allons maintenant étudier les instructions de 
manipulation de registres DO et D1. 


Manipulation des registres DO et D1 


Il existe de neuf sortes d’instructions énumérées 
ci-dessous avec r = A ou Cet ss = D0 ou D1. 


rssEX 
rsssx 


échange Le champ A de r avec ss 
échange Les quartets 0 à 3 

de r avec ceux de ss 

ss=r copie Le champ A de r dans ss 


ss=rS idem mais pour les quartets 0 à 3 
Ss=ss+ n ajoute n à ss (n < 16) 
Ss=ss- n soustrait n à ss (n < 16) 


ss=(2) nnnnn charge Les 2 quartets de poids 

faible de ss avec ceux de nnnnn. 
ss=(4) nnnnn idem mais pour 4 quartets. 
ss=(5) nnnnn copie nnnnn dans ss. 


Il faut signaler que les trois dernières instructions 
peuvent s’écrire ss=HEX hh, ss=HEX hhhh, ss=HEX hhhhh 
avec h compris entre 0etF. 


Exemple d'application 


Comme application des accès mémoire, nous allons 
écrire un programme binaire (Bin) qui se contentera 
de noircir une zone de l’écran. Dans le volume I des 
IDS (pages 3.1 et suivantes), nous allons trouver les 
adresses des zones écran. Je dis des car HP a bien fait 
les choses en plaçant l’écran en trois parties dans la 
mémoire, comme suit : 


zone 1 : colonnes 0 à 45 : de 2E104 à 2E15F 
zone 2 : colonnes 46 à 93 : de 2E200 à 2E260 
zone 3 : colonnes 94 à 131 : de 2E300 à 2E34C 


Pour afficher quelque chose à l'écran il suffit de 
mettre à 1 les bits qui correspondent aux points que 
l'on veut allumer. Le programme suivant se contente 
de mettre à 1 tous les bits des 4 premières colonnes 
de la zone 2. 
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BIN *SCREEN' 


CHAIN -1 
DD2ST EQU #2E200 début de Le zone 2 
DD2END EQU #2E260 fin de cette zone 
barre EQU & nombre de barres à afficher 
ENDBIN EQU #0764B 
debut DO=(5) DD2ST pointe La zone 
A=0 B AIB] = 00 
A=A-1 B AIB] = FF 
Be 0 chargement à partir de C[0] 
LC(5) barre compteur de barre 
boucle DATO=A B remplit un octet 
DO=D0+ 2 pointe le suivant 
C=C-1 À décremente Le compteur 
?2C#0 À CLA] est-il non nul ? 
GOYES boucle si oui on recommence 


fin GOVLNG ENDBIN 


si non on arrête 
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END 


Je vous laisse assembler ce fichier. Pour l’essayer, il 
suffit de faire comme pour tout autre fichier de son 
type : RUN SCREEN OU CALL SCREEN. Vous pourrez voir 
alors très brièvement s’afficher le résultat attendu. Le 
seul problème est que cet affichage est pour le moins 
fugitif. Pour supprimer ce problème, il suffit de faire 
CALL SCREEN à WAIT 1, par exemple, ou mieux de taper 
le programme qui suit : 


10 CALL SCREEN 
20 GOTO 10 


Nous allons maintenant améliorer ce programme à 
trois niveaux : 


- nous allons remplir la zone 2 totalement, et non 
simplement quelques barres, 


- l'écriture dans la mémoire d’écran se fera 8 octets à 
la fois comme le permet le HP-71, et non un par un, 


- et enfin nous ajouterons à la fin une boucle d’attente 
qui permettra au résultat de rester plus longtemps à 


l'affichage. 
On obtient alors le source suivant : 


BIN "SCREEN2! 


CHAIN -1 
DD2ST EQU #2E200 
DD2END EQU #2E260 
Long  EQU (DD2END)-(DD2ST) longueur de La zone 
ENDBIN EQU #0764B 
duree EQU 136000 environ 5 secondes 


debut DO=(5) DD2ST 


A=0 u 

A=A-1 W ici AW] = FF....FF 
P= 0 

LC(5) Long 

CSR À division par 16 


boucle DATO=A W 
DO=D0+ 16 
C=C-1 A 
?C#0 À 
GOYES boucle 


remplit 64 quartets 


LC(5) duree 
wait  C=C-1 A 
?7C#0 À 
GOYES wait 
fin GOVLNG ENDBIN 
END 


Qu'y a-t'il de nouveau par rapport au précédent 
programme ? 


La valeur long sera égale à (2E260 - 2E200) soit 60 en 
hexadécimal, ce qui représente 96 quartets (ou encore 
48 octets soit 48 barres affichées). Le nombre de 
boucles à effectuer est égal à /ong / 16 puisque l’on 
écrit 16 quartets à la fois avec l’instruction DATO=C w. 
Pour diviser ou pour multiplier le contenu d’un 
registre par une puissance de deux, rien de plus 
facile : il suffit de décaler tous les bits du registre 
respectivement à droite ou à gauche. Pour diviser 
C[A] par 16, il faut donc faire un décalage de 4 bits 
(2*= 16) à droite . Cela se fait grâce à l'instruction CSR 
A (pour C Shift Right A) qui décale C[A] d’un quartet 
à droite. 


Etudions maintenant la seconde partie du 
programme. Le but est simplement de faire faire 
quelque chose au microprocesseur pour laisser 
l'affichage intact. La chose la plus simple qu’on puisse 
lui faire faire est compter. Le type de boucle suivant 
convient alors parfaitement : 


LC(5) duree 
C=C-1 À 
?2C#0 A 
GOYES Label 


label 


Quelle valeur doit-on alors assigner à durée ? Il suffit 
de se référer aux IDS (volume I) qui donnent le 
temps d’exécution de chaque instruction. On y aprend 
que la boucle ci-dessus dure 25 cycles d’horloge par 
tour, soit 37 microsecondes environ. Pour attendre 5 
secondes, il faut donc environ compter jusqu’à 
136000. Qui a dit que le HP-71 était lent ? De 0 à 
136000 en 5 secondes, qui dit mieux ? Essayez donc 
en Basic, vous m’en direz des nouvelles... 





Pour ceux qui s’y connaissent déjà en assembleur, je 
dirai que ce programme peut être optimisé au niveau 
vitesse et longueur du code. En effet, il faut savoir que 
la boucle ci-dessus peut être remplacée par la 
séquence suivante. Elle prend 17 cycles au lieu de 25, 
et 5 quartets au lieu de 7. 


LC(5) (duree)-1 
label C=C-1 A 
GONC Label 


L’instruction Gonc (pour Go On No Carry) effectue un 
saut à l’adresse indiquée si le drapeau carry est à O0. 
Cette cary est un bit que le microprocesseur 
positionne en fonction du résultat de l'opération qu'il 
vient d’effectuer. Par exemple, pour C=c-1 A, la Carry 
passe à un si C passe de 00000 à FFFFF. On peut 
donc réécrire le programme comme suit : 


BIN "SCREEN3! 


CHAIN -1 
DD2ST EQU #2E200 
DD2END EQU  #2E260 
Long  EQU (DD2END)-(DD2ST) longueur de La zone 
ENDBIN EQU #0764B 
duree EQU 200000 environ 5 secondes 


debut DO=(5) DD2ST 


A=0 ba 

A=A-1 W ici AW] = FF...,.FF 
= 0 

LC(5) Long 

CSR A division par 16 


boucle DATO=A W 
DO=D0+ 16 
C=C-1 A 
GONC boucle 


LC(5) duree 
wait  C=C-1 A 
GONC wait 


fin GOVLNG ENDBIN 
END 


Ce dernier programme vous permettre de gagner 2 
octets par rapport à son prédécesseur. Fantastique 
non ? 


Voia venu le moment de nous quitter, hélas ! 

Pour vous donner envie de lire mon prochain article, 
je vous annonce que nous verrons comment écrire 
notre premier Lex. D'ici là, n’abusez pas de HP-71.. 


Jacques Baudier (192) 


mm 


INVERSEZ VOS DRAPEAUX 


Ce fichier Lex vous fournit une fonction pour inverser 
l’état des drapeaux (ou flags, ou indicateurs) système. 
Avant, pour inverser l’état d’un flag, il fallait faire : 
DEF KEY'X!,'N=VAL(DISP$)ON=FLAGCN,NOTFLAG(N))!: 


Les indicateurs inversables sont ceux compris entre -1 
et -59. Ceci afin de limiter les risques de Memory 
Lost. 


Cette fonction résulte plus d’un processus 
d'apprentissage que d’un besoin réel. C'était un de 
mes premiers essais en assembleur. Maintenant, je 
peux voir que cette fonction pourrait être améliorée. 
Par exemple, le complément en hexadécimal pourrait 
être fait avec : 

C=A B 

A=-A-1B 


Et ainsi de suite. Il est possible qu’un jour cette 
fonction inverse l’état des indicateurs utilisateur (ceux 
qui sont positifs). 


Bonnes inversions, 
Jack Elhay 


LEX "TFLAGS'! 


ID #5C 

MSG 0 

POLL DO 

ENTRY IN 

CHAR  #F 

KEY "TFLAG' Syntaxe : TFLAG (-n), 1<=n<=59 

TOKEN 12 Retourne l'ancienne valeur 
POPIR EQU #0E8FD dépile un réel 
FLTDH EQU #1B8223 convertit de flottant en hexa 
HDFLT  EQU #1B31B inverse de La précédente 
SFLAGT EQU #13608 routine utilisée par LC, USER 
FNRTN1 EQU #0F216 
ARGERR EQU #0BF19 

ENDTXT 


* Un paramètre numérique obligatoire 


NIBHEX 811 
IN GOSBVL POPIR dépile un nombre réel 
A=0 S efface Le signe 
GOSBVL FLTDH réel ACW) -> hexa A(A) 
* ACA) = nombre dépilé. La fonction commence 
C=0 bi 
LC(2) #30 #3C=60 en décimal 
?2C<=A B interdit Les flags -60 à -64 
GOYES ERROR 
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C=0 A 

LC(3) #100 

C=C-A X 

GOSBVL SFLAGT  Inverse. Erreur si flag user 
* Fin de La fonction. Prépare La sortie 


No = complément à #100 


A=0 
GONC OUT Cy = l'état antérieur du flag 
A=A+1 À +1 si flag était à 1 

OUT GOSBVL HDFLT convertit hexa -> réel A(W) 
C=A ë réel va dans C(W) 
GOVLNG FNRTNT retour... 

ERROR GOVLNG ARGERR 
END ouf ! 
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UNPURGE 


Voici un petit utilitaire pour les distraits, en Basic une 
fois n’est pas coutume, et qui illustre deux des 
mots-clés les plus puissants de JPCLEX (tu parles ! 
ils le sont tous !) : RRECS et WREC. 


Vous venez d’exécuter, proprement et définitivement, 
une de vos oeuvres : la peine de mort n’est pas encore 
supprimée pour les fichiers, hélas ! Et vous vous 
avisez que, oh m... ! Ne touchez à rien, ne copiez rien 
sur votre disquette ou cassette, et lancez UNPURGE, 
qui vous ressuscitera votre défunt fichier... 


Observez au passage combien il est reposant d'écrire 
RS=RRECS(...)) plutôt que la litanie des SEND 
LISTEN ... MTA ... et autres protocoles dits de bas 
niveau... 


J'insiste, pour finir, sur le fait que UNPURGE ne 
pourra rien pour les fichiers en Ram, ou si vous avez 
compacté, initialisé, ou copié sur votre support. Il se 
contente en effet de retrouver l’entrée du fichier 
détruit dans le catalogue du support, et de 
reconstituer l’octet type de fichier qui avait été 
transformé en nul. 


Happy unPurging ! 


Eric Gengoux (108) 





Programme "UNPURGE" (Retrouvez vos fichiers ! Necessite JPCLEX) 


- UNPURGE (utilise JPCLEX) 
(c) Eric Gengoux 

10 CALL UNPURGE @ SUB UNPURGE 
20 DIM R$I256],F0$110],F1$110),TS$[2) 
30 INPUT “Unité ",":TAPE(1)";US$ 
40 1F NOT DEVADDR(US) THEN BEEP @& GOTO 30 
50 INPUT #Fich. purgé ? ":FO0$ & FOS=UPRCS(F0S) 
60 FOS$=FOS$S&SPACES(10-LEN(FO0$)) 
70 RESTORE 80 & ON MENU(7,1) GOTO "BAS! ,'LEX','BIN','DTA!,'KEY!','SDA!,'TXT'! 


90 'BAS': TIS=HTAS("E214",1) à GOTO 'CONT! 


SZSSZSTISTIISEZ==SSSSSSSSESSSIEIEESSSSESSESSESSESSS=S=S=S==ssSssssssssSZ 


110 ‘BIN': TIS=HTAS("E204",1) @ GOTO 'CONT' 


120 'DTA': TIS=HTAS("EOFO",1) @ GOTO 'CONT'! 


130 'KEY': TIS$S=HTAS("E20C",1) à GOTO 'CONT! 


140 ®SDA': TIS=HTAS("EODO",1) à GOTO 'CONT! 


150 'TXT': TIS=HTAS("0001",1) à GOTO 'CONT! 


160 'CONT': FOR 1=2 TO MAXD(U$)/8+2 
170 R$S=RRECS(I ,US$) 

180 FOR J=0 TO 254 STEP 32 

190 F2S=RS[J+1,J+10] @ T$=RS[J+11,J+12] 
200 IF F2$#F0$ THEN GOTO 230 

210 1F T$#HTAS('0000') THEN EXIT J 

220 RS[J+11,J+12]=71$ à WREC RS, 1I,US 
230 NEXT J 

240 NEXT 1! 

250 CAT FOSEUS 


RAR RM Re Re de dr ee er re eee ee ee re re eee re er re eee re rer re er re re er red dd de 


Programme "GAO'! (Genealogie assistee par ordinateur, deuxieme partie, voir JPC 46) 


oO PRRRRRRRRRRRRÉRRÉRRR RER RER RRRRRÉÉR RÉ ÉRRÉ RÉ É 


* * 
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GENEALOGIE 


NICODEME philippe 


01/03/1986 


+ #+ # % + + 
+ + + # + + 


RRRRRRRRRRRRRRRRRRRRERERARRERÉ RÉEL RRÉÉRÉÉ 


PR RÉ RÉ RER RÉ Rte 


e 2ème PARTIE e 
*programme principal, enregistré sous * 
* Le Label GAO. Fonctionnement ® 


“indépendant de La première partie e 


Céhhttthitttéttéhtttttétttététttétittéétttéé 


MÉRRRÉ RER ERA RE ER ER R SR 
* _INITIALISATION . 


RRRRRRRRRRRRRRRRÉ RÉ SR RÉ 


100 DESTROY ALL & CFLAG ALL @ DELAY 1,1 à USER à DISP TAB(7):"GENEALOGIE" 


RC iiiiiiistisiiiiiiiiiis: 


* MENU PRINCIPAL * 
PRRRRRRRÉRRRRRRRRRRRRRÉ 
110 A=101 à 2=105 à P=A à SFLAG O0 à CALL LÇAS$,A,2,P) à CFLAG 0 à IF P=101 THEN 110 
120 1F P<>105 THEN CALL A$ à GOTO 110 ELSE USER à DISP “au revoir" 


oO CRRRRRRRÉRRRRRÉRÉRÉEÉEÉÉ 


* MENU FICHIER . 
RRRRRRRRRÉRRÉRRÉRRÉRRÉRRRÉ 
* menu principal * 
RRRRRRÉRRRRRRERÉRRÉRRÉRÉRÉRÉ 


ESS SSSSSSEISIEIEIEIESSIZIETISEISSSIESSSSSSSSSSSETZSES=S=S==ssssssssssssszs=. 
130 SUB FICHIER à SFLAG 1 
140 A=168 à Z=176 à P=A à CALL L(AS,A,2,P) à IF P=168 THEN 140 
150 1F P=175 THEN A=198 Q P=A à 2=221 à CALL L(AS,A,2Z,P) à GOTO 140 
160 1F P=176 THEN CFLAG 1 à END 
170 ASSIGN #1 TO FIC @ RESTORE #1,0 @ READ #1;Q @ ASSIGN #1 TO * à CALL A$(Q) à GOTO 140 


 FRRÉRRRRRRRRRRRRRÉRRRÉR RÉ 


* MENU EDITER * 
MR RÉ R ARR RAR RER RE 
de fichier * 


RRRRRRRRRRRRRÉRÉRRERRÉÉ 


EEE 
180 SUB EDITER(Q) à A=177 à Z=183 à P=A 
190 CALL LÇCAS,A,2,P) @ 1F P=177 THEN 190 
200 1F P=183 THEN END ELSE NS$S=CHRS(NUM(AS))&"I1" @ CALL N$(Q) à GOTO 190 


oO PRRRRRRÉRRRRRRR RER ÉRRRÉÉ 


* OPTION EDITER - 


* UNE FICHE de 
ChRéanaeee teen à 
- fichier ® 


ÉRRRRRRRRRRRRRRRRRRRRÉ 


210 SUB UI(Q) à CALL Q(ES,FS$,P,Q) 


e RÉRÉRRRRRRARRRERERÉRRÉRÉ 


*MODULE DE RECHERCHE * 
*TROUVE LE No D'UNE * 
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*FICHE A PARTIR DU * 
*NOM ET DU PRENOM ° 


PRRRRRRRNRRRRRRRRERÉRÉ 


220 SUB Q(ES$,F$,P,Q) & ASSIGN #1 TO FIC à IF P<>-1 THEN INPUT “nom? “-ES$ à INPUT "prénom? ":F$ 
230 K=0 à FOR 1=1 TO Q-1 STEP 12 & RESTORE #1,1 @ READ #1:AS$ à RESTORE #1,1+1 @ READ #1;B$ 
240 IF AS$=ES AND F$=B$ THEN K=1 à P=] 
250 NEXT 1 
260 IF K=0 THEN DISP “inconnu” ELSE ASSIGN #1 TO * à SFLAG 8 à CALL B(K,Q) 
OCR RÉ RER RÉ RÉ É 

* OPTION EDITER * 

* AVEC FAMILLE Fe 

héhé 

: fichier - 

CRÉÉE RER RÉ RÉ RÉ RÉ RÉ 


270 SUB AI(Q) à P=0 à PRINT à PRINT "FAMILLE" 9 CALL Q(ES,F$,P,Q) à 1F P=0 THEN END 
280 PRINT @ PRINT MPERE" @ P=P+6 à CALL O(P,Q) @ PRINT @ PRINT "MERE" à P=P+2 à CALL O(P,Q) 
290 PRINT @ PRINT "CONJOINT" @ P=P+2 à CALL O(P,0) 
300 PRINT ® PRINT MENFANTS" à SFLAG 5 à P=P-10 à CALL O(P,Q) à SFLAG 12 à CALL O(P,Q) 
. O Péttéetettttétééétéiéé 

*LECTURE DE 2 ® 

*ELEMENTS DU FICHIER * 

*MAN (les éléments * 

“sont pointés par P) * 


RRRRRRRRRRRRÉRRR RÉ RR RÉ 


SRDSSSSSSSSESS==SZSSEISSSSSSESSESSSSSSSSEESSSSSSESESSSS==Z==ZEEZ= 
310 SUB O(P,Q) à ASSIGN #1 TO FIC à RESTORE #1,P @ READ #1;C$(1) à RESTORE #1,P+1 
320 READ #1;C$(2) à D=1 à J=1 à ASSIGN #1 TO * à IF FLAG(5,0) THEN D=7 
330 IF FLAG(12,0) THEN D=9 
340 CALL P(CS(),D,J,0) 


oO CRRRRRRRRRRRRRRÉRRRÉRÉÉ 


* OPTION EDITER Lu 


* LE FICHIER ® 

Rhhéttthhététtetétté hé 

* fichier * 

RRRRRRRRRRRR RÉ RÉ RSR RÉ 
HEISSSSSSIIE=E2SSSEIZEES=SSSSEESSESSSESESSSSSSSSSSEESESS==S=sEESSSZ 


350 SUB LI(Q) & PRINT @ PRINT "FICHIER" à PRINT DATES à PRINT TIMES Q PRINT 
360 FOR 1=1 TO Q-1 STEP 12 à K=1 à SFLAG 8 à CALL B(K,Q) à NEXT 1 


 O Ptthéhhtt té RRRttRRttÉ 


* OPTION EDITER 


* PAR CRITERES * 
Re de Re dr dr Ur de ee dr de de dr dd dr de dr de 
* fichier * 


ÉRRRRRRRÉRRERÉER RÉ RER SR 


ÉZSSSSEEE==SSSIIIZZ====S=SSSEISSS=ESSESSS==S==SSs==S=EsSsSSSSS=SSE ====: 
370 SUB P1(Q) 

380 INPUT "1 ou 2 critères ? “:N à IF N<1 OR N>2 THEN 380 

390 1F N=2 THEN INPUT “liaison ET / OÙ ? "AS 

400 IF AS$="OU" THEN SFLAG 6 

410 FOR I1=1 TO N à A=184 à P=A 9 Z=197 

420 CALL LCAS$,A,2,P) à C(1)=P-185 à 1° C(1)<1 THEN 420 


RE —— RC 





430 INPUT “valeur ? ";C$(1) @ NEXT 1 @ D=C(1) à J=C(2)-C(1) à 1F N=1 THEN C$(2)=C$(1) @ J=0 
440 CALL PCCS(),D,J,0) 
- CRÉÉ RRRRRRRRRRRÉRRÉRR ER 
*MODULE DE RECHERCHE * 
#*ET D'EDITION D'UNE * 
#*FICHE A PARTIR DE 1 * 
*OU 2 CRITERES * 


RRRRRRRRRRRRÉRRRÉRRÉRRÉRÉ 


E=2=== 
450 SUB P(CS(),D,J,Q) & FOR 1=D TO Q-1 STEP 12 & ASSIGN #1 TO FIC @ L=L+1 
460 RESTORE #1,1 @ READ #1;AS$ à T=0 à 1F AS=C$(1) THEN T=1 
470 RESTORE #1,1+J @ READ #1; AS @ IF AS=CS$S(2) THEN TeT+2 
480 ASSIGN #1 TO * 

490 1F FLAG(6) AND T<>0 OR T=3 THEN SFLAG 8 à K=L*12-11 à CALL B(K,Q) 
500 NEXT 1 @ CFLAG 6 


oO CRRRRRRRRRRRRRRÉRRRRRRÉ 


* OPTION EDITER s 





* EN ARBRE * 
ÉRRRRRRÉRRRRRRRRRÉRÉRRÉRÉ 
* fichier * 


RRRRRRRRRRRRRÉRRRÉRÉRÉRRÉÉ 


510 SUB EI(Q) à PRINT @ PRINT "ARBRE! à INPUT "(Père (M)ère ? ";A$ à P=0 
520 CALL Q(ES$,F$,P,Q) à IF P<1 THEN END 

530 1F A$="Pu THEN PzP+6 ELSE P=P+8 

540 ASSIGN #1 TO FIC @ RESTORE #1,P @ READ #1;:ES$ à RESTORE #1,P+1 

550 READ #1:F$ à ASSIGN #1 TO * à P=-1 @ GOTO 520 


CRÉÉE RRRRRRRÉRRRRRÉR 


* OPTION SAUVER * 
Rhhhtéttéthéttttéttettté 
® fichier * 
CRRMMERRRRERRRÉRRRRRRRÉE 


DESSSSSSSSSSSESSSSSSSSSSSSSSEZSZSSSTIZSSTTSSSSESZEESSSSs=S============-= 
560 SUB SAUVER(Q) @ COPY FIC TO :TAPE(1) 


oO RRRRRRRRRRRRRRRR RER RENÉ 


* OPTION CHARGER * 
ÉRRMRRRRRÉRRRÉRRRRRRRRRÉ 
# fichier * 
ÉRRÉÉRRÉRRRRRRRRRRRÉRRRÉ 


EESSSSSSSSSSSSSSSSSESSESSSSSSSSESESESESESSESSSSESESSSSSSESESSEE 
570 SUB CHARGER(Q) & PURGE FIC @ COPY FIC:TAPE(1) 


 CRRRRRRRRRÉRRRRRRRRRÉRRÉ 


* OPTION MODIFIER * 
RU de de AR dr de 


® fichier : 
ÉRÉS RARE RER RRN RER EN 


580 SUB MODIFIER(Q) 
590 INPUT “No ? #:N ® IF N>1P(Q/12)+1 THEN 590 ELSE R=Q @ Q=1+12*(N-1) 
600 K=Q à CALL B(K,Q) à Q=R 


oO PRRRRRÉRRERÉRRRÉRRÉRÉRÉRRÉÉ 


* OPTION EFFACER . 


RRRRRRÉRRRÉRRERRRÉRÉRÉRRÉÉEÉ 
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610 SUB EFFACER(Q) @ INPUT “confirmer ? O/N MAS Q 1F AS<>"O" THEN END 
620 ASSIGN #1 TO FIC à RESTORE #1,0 @ PRINT #1:1 à ASSIGN #1 TO * 


e fichier - 
RARE AR AREA ER RARE RER 


PRRRRRRRRRRRRERRRR ÉTÉ É 


® MODULE ® 
* ENTREE / SORTIE * 
*selon le flag 8 * 


*édition d'une fiche * 
*entrée d'une fiche * 
LAS SSÉSÉRÉSSÉSSSSSI1.1.:.) 


630 SUB B(K,Q) à DELAY 0,0 à ASSIGN #1 TO MAN à ASSIGN #2 TO FIC Q DIM ES[15] 


640 CE=MR*RERAAEEN à IF FLAG(B) THEN PRINT @ PRINT CS à PRINT "FICHE";IPCK/123+1 @ PRINT CS 
650 ON ERROR GOTO 680 
660 
670 


68 


0 


690 


74 
75 
76 


0 
0 
0 


FOR 1=186 TO 197 à RESTORE #1,1 à RESTORE #2,K à READ #1:A$ 
IF FLAG(8) THEN READ #2;B$ à PRINT AS;TAB(11):B$ à GOTO 690 
DISP A$ à WINDOW LENÇAS)+2 à INPUT E$ à PRINT #2:E$ Q WINDOW 1 9 Q=0+1 


K=K+1 @ NEXT 1 @.ASSIGN #1 TO * à ASSIGN #2 TO * à CFLAG 8 


RÉRRRRRRRRRRÉRRÉRRRERÉÉ 


* OPTION AJOUTER * 
Re de ee de ee dr dr dr er de or de de dd dr 
* fichier * 
RRRRRRRRRRRRRRR RER RÉ É 


SUB AJOUTER(Q) @ 1F Q=840 THEN DISP “Eof" à END ELSE K=Q à SFLAG 20 9 CALL B(K,0Q) 


ASSIGN #1 TO FIC 


RESTORE #1,0 @ PRINT #1;:Q à ASSIGN #1 TO * à DISP (Q-1)/12; "fiches" à ASSIGN #1 TO * 


Rhthéhééttétééétététéé 


* MENU MOTES . 
Rétéététéétééététéeéér 
* menu principal * 
RRRRRRRRERRRRÉRÉRÉRÉRRÉRÉ 


SUB NOTES à SFLAG 2 
A=132 à P=A à 2=138 à CALL L(AS,A,2Z,P) à IF P=132 THEN 740 
IF P=138 THEN CFLAG 2 à END 


ASSIGN #1 TO MAN à RESTORE #1,0 à READ #1:T à ASSIGN #1 TO * à CALL ASCT) @ GOTO 740 


Re ee dr dr de ee er de Se Nr M M 


* OPTION AIDE . 


RRRRRRRRR RÉ R SR R RÉ R RÉ 


* notes * 
RRRRRÉRÉRÉRRRNRRRR ÉTÉ E 


SUB AIDE(T) @ A=139 @ P=A à Z=154 à CALL LCAS,A,2Z,P) 


Lisiii ii iii: ss 


* OPTION LECTURE * 


CRRRRRRNRRÉRRRRERÉERRRER 


* notes * 
été 
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780 SUB LIRE(T) à A=1 ® P=A à Z=T-(T<>1) à CALL L(A$,A,2,P) 


ue PRÉRRERRÉRRRÉRRÉRRRRRRRRRRÉ 


* OPTION ECRITURE * 


RRRRRRR RE RÉ RRRRRERÉRÉÉ 


* notes * 
Rte de de de de de de de de de de de dr de te er de de de À 


790 SUB ECRIRE(T) & ASSIGN #1 TO MAN & DIM AS[20] & ON ERROR GOTO 820 @& DELAY 1,1 

800 INPUT AS$ à 1F AS="F" THEN 830 

810 1F T=100 THEN DISP “Eof" à GOTO 830 ELSE RESTORE #1,7 @ PRINT #1;:A$ Q T=T+1 à GOTO 800 
820 DISP “trop grand! & GOTO 800 

830 RESTORE #1,0 @& PRINT #1;:T @ ASSIGN #1 TO * 


oO PRRRRRRRRRRÉRRÉÉRRRÉRÉRRÉRR 


* OPTION DETRUIRE * 


RRRRRRRRRRRRRRRÉRRRRRRE 


e notes ® 
CRRÉRRÉRRÉRÉRRRÉRÉRÉRÉRRÉRRRRÉRR 


840 SUB DETRUIRE(T) @ INPUT “confirmer DETRUIRE ? W;:A$ à IF AS$=!N"! THEN END 
850 ASSIGN #1 TO MAN @ RESTORE #1,0 à PRINT #1:1 @ RESTORE #1,1 à PRINT #1;"1 @ ASSIGN #1 TO * 


 PRRRRERRRRÉRRRRRÉRRÉRRRÉ 


* OPTION IMPRIMER * 


RRÉRRRRRRRÉERÉRRRRÉÉRÉERÉ 


* notes e 
ttes é 


860 SUB IMPRIMER(T) @ PRINT @ PRINT "BLOC-NOTES! @ PRINT DATES @ PRINT à ASSIGN #1 TO MAN 
870 FOR 1=1 TO T-(T<>1) à RESTORE #1,1 @ READ #1; A$ à PRINT A$ à NEXT I @ ASSIGN #1 TO * 


 CRRRRRRÉRRRRRRRRRRRÉRÉRÉE RÉ 


* MENU DATEUR 
RRRMRRRÉRRRRRRRÉRÉRRRRÉÉ 
* menu principal * 
ÉRRRRRRRRRRERRÉERRRÉRRÉRÉRÉRÉ 


880 SUB DATEUR à SFLAG 3 

890 A=106 à P=A à Z=111 à CALL L(AS,A,2,P) à IF P=106 THEN 890 

900 1F P=110 THEN A=112 à Z=131 à P=A @ CALL L(AS,A,2,P) @ GOTO 890 
910 1F P<>111 THEN NS$S=CHRS(NUM(AS)) @ CALL NS & GOTO 890 ELSE CFLAG 3 


u CRRÉRRRRRRRRRRÉRERÉRERÉR RÉ 


* OPTION CALENDRIER * 


RRRRRRRERRRRRRÉRRRRRRÉRE 


* dateur * 
CRÉÉ RRÉRRRRRRRRRT TER 


Adaptation d'un programme paru dans L'Ordinateur de Poche No 20 (page 27) 


920 SUB C à DELAY 2,2 & DISP “entrez Le date" @ DISP “max : 10 NIVOSE AN 14" 
930 INPUT “jour ? “:P @ 1F P<1 OR P>30 THEN 930 

940 DISP “mois en toutes Lettres" à INPUT “mois ? ";:N$ à K=0 & ASSIGN #1 TO MAN 
950 FOR 1=155 TO 167 @& RESTORE #1,1 @ READ #1;AS$ à IF N$S=AS$ THEN K=1-154 

960 NEXT 1 @ ASSIGN #1 TO * à IF K=0 THEN 940 

970 INPUT “an ? M:R à IF R<1 OR R>14 THEN 970 

980 1F K=13 AND P>6 THEN DISP C$ à GOTO 930 

990 1F K=13 AND P=6 AND R<>3 AND R<>7 AND R<>11 THEN DISP C$ à GOTO 930 
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1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 


1300 
1310 
1320 
1330 
1340 
1350 
1360 


IF K=4 AND R=14 THEN 1010 ELSE 1020 

1F P>10 THEN DISP C$ à GOTO 930 

IF K=13 THEN 1240 

IF K<6 THEN 1040 ELSE 1080 

IF (R#4)*(R<B) THEN X=0 à Y=0 à GOTO 1060 

IF C(R=4)+(R>7)*(R<>12) THEN X=-1 Q Y=1 ELSE X=-2 Q Y=2 
IF K<3 THEN L=K+8+X @ GOTO 1150 

IF (K>2)*(K<6) THEN L=K+7+X à GOTO 1150 

IF R<B THEN X=0 à Y=0 

IF (R=4)*(K=6) THEN Y=1 à GOTO 1120 

IF R>=8 THEN X=-1 Q Y=1 

IF (R=12)*(K=6) THEN Y=2 

IF (K=6)+(K=7) THEN L=K+4+X à GOTO 1150 

IF (K=8)+(K=9) THEN L=K+3+X à GOTO 1150 

IF K>9 THEN L=K+2+X 

IF P<=L THEN M=K+8 ELSE M=K+9 

IF M>12 THEN M=M-12 

IF P>L THEN J=P-L à GOTO 1250 

1F K<3 THEN J=P+21+Y Q GOTO 1250 

1F (K=3)+(K=7) THEN J=P+20+Y à GOTO 1250 

IF K=4 THEN J=P+20+Y à A=R+1791 9 GOTO 1260 

IF (K=5)+(K=8)+(K=9) THEN J=P+19+Y à GOTO 1250 
IF (K=6)+(K>9)*(K<12) THEN J=P+18+Y ELSE J=P+174Y 
GOTO 1250 

K=13 à M=9 à IF R<=7 THEN J=P+16 ELSE J=P+17 
IF K>=3 THEN A=R+1792 ELSE A=R+1791 

CALL ECF,J,M,A) 


Re ee de ee de ee de fe fe fr de 


* OPTION JOUR SEM. * 


RRRRRRRRRRRRRÉRRÉÉÉRÉÉ 


® dateur * 
RRRRRRÉRRRRRRNRÉERRÉTRÉ 


SUB J à DELAY 1,1 @ DISP “entrez la date" à CALL E(F,J,M,A) 


RRRRRRRRRERRR ER ÉRÉRR RÉ 


* OPTION Nb DE JOURS* 


RRRRRRRRRRRRÉRÉRRRRÉRÉEÉ 


® dateur * 
RRRERRRÉRRÉRÉRÉRRÉRÉRÉRRRE 


SUB N à DELAY 1,1 à DISP “date 1" 9 CALL E(F,J,M,A) à D=F à DELAY 1,1 
DISP “Date 2" & J=0 à CALL E(F,J,M,A) à DISP ABS(F-D);" jours! 

Été téééééée 

* MODULE DE * 

* CALCUL DU JOUR  * 


ÉRÉRRÉRÉRÉRRRRÉRRÉRRÉÉRÉÉ 


SUB E(F,J,M,A) à 1F J<>0 THEN 1340 ELSE DISP “valeurs numériques SVP" 

INPUT “jour ? :J à 1F J<1 OR J>31 THEN 1310 

INPUT “mois ? “:M @ IF M<1 OR M>12 THEN 1320 

INPUT Wannee >1582 M:A à IF A<1583 THEN 1330 
F=365*A+J+31*(M-1)+INT((A-1)/4)-INTC.7S*INT((A-1)/100+1)) 

IF M>2 THEN F=365*A+J+31*(M-1)-INT(.4*M+2.3)+INT(A/4)-INT(.7S*INT(A/100+1)) 
D=ABS(F+(INT(-F/7)+1)*7) @ 1F D>6 THEN D=0 
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1380 FOR 1=0 TO D & READ AS$ @ NEXT 1 @ DELAY 3,3 à DISP AS$;:J:M;:A 
- PRRRÉRRÉRRRRRRRRÉRRRRRÉRÉE 
* MODULE DE LECTURE * 
* Lecture des menus * 


* du fichier MAN ® 
ht R 


ESSSSSTTTETETSETEREEZSTITEEEESESEEESIEEEE EESTI TESSETEEESE SES SSr 
1390 SUB L(AS,A,2,P) @ ASSIGN #1 TO MAN 
- calcul du signe placé en fin de Ligne (déplacements possibles) 
1400 IF P=A THEN S=128 ELSE S=130-(P=2) 
- Lecture dans le fichier MAN de l'élément pointé par P 
affichage de cet élément et indication du sens de lecture * v 
1410 RESTORE #1,P @ READ #1; A$ à DISP AS:TAB(22):CHRS(S) 
- sttente de La pression d'une touche 
éventuellement affichage de La date 
1420 DELAY 0,0 à ES=KEYS à 1F ES$="fO" THEN DELAY 1,1 @ DISP DATES 
- éventuellement affichage de l'heure 
1430 1F E$="fL" THEN DELAY 1,1 @ DISP TIMES 
- modification du pointeur selon La touche enfoncée 
1440 IF ES="#51" THEN P=P+(P<>2) |! pointeur + 1 
1450 IF ES$="#50" THEN P=P-(P<>A) ! pointeur - 1 
- si touche ENDLINE enfoncée fin du module sinon suite 
1460 1F ES="#38 THEN ASSIGN #1 TO * ELSE 1400 


= CRRRRRRRRRRRRRRRRRRRÉRRÉRÉRRÉRÉRRRRÉRÉRÉRRÉRÉÉ 


- FIN DE LA SECONDE PARTIE ® 


RRRÉRRRRRRRRRRERÉRÉRRÉRRÉRÉRÉRRÉRÉRÉRÉRÉRÉÉRÉÉ 
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LE COIN DES LHEX 


Comme de coutume, cette rubrique contient la liste des codes hexadécimaux des fichiers Lex 
parus ce mois-ci. 


Rappelons ce qu’est un fichier Lex : c’est un programme pour le HP-71, en assembleur, qui 
apporte de nouvelles fonctions. Celles-ci sont utilisables directement, ou dans des programmes 
Basic. 


Pour bénéficier de ces nouvelles fonctions, vous n’avez pas besoin de programmer vous-même en 
assembleur, ni de posséder un module Forth/Assembleur. 


Il suffit de recopier le petit programme basic "MAKELEX" ci-dessous, de le lancer et de recopier 
les codes du fichier Lex désiré. Quand vous avez fini, les nouvelles fonctions sont accessibles, 
après avoir éteint et rallumé votre HP-71. 


Si l'erreur "Erreur de somme” apparaît, vérifiez la ligne que vous avez introduite. 


Vous trouverz donc le Lex CHARLEX nécessaire à la rédaction de votre article (voir "Ah ! Vous 
écrivez !") et le Lex TFLAGS de Jack Elhay. 


CHARLEX 


TFLAGS TFLAG XFN 092012 


10 CALL MLEX à SUB MLEX à SFLAG -1 @ PURGE AH à INPUT "Nb. d'octets: ":N à LC OFF 
20 CREATE DATA AH,1,N-4 @ A=HTD(ADDRS(#AH")) à B=A à GOSUB 130 

30 Q=1 à X=0 à INPUT "000: ",P$:AS$ à C$=A$ à S=0 à GOSUB 90 

40 Q=2 à X=1 à GOSUB 80 à AS=ASRCS à A=A+37 à N=N*2+37 à Q=3 à SFLAG 5 à FOR X=2 TO N DIV 16-‘ 
50 GOSUB 80 à C$S=CSI5*FLAG(5)+1] à POKE DTHS(A),CS à A=A+16-5*FLAG(5,0) à NEXT X à Q=4 

60 DISP DTHS(X)[3]; à INPUT “: ",PS[1,MOD(N,16)]:C$ à GOSUB 90 

70 POKE DTH$S(A),C$ à POKE DTHS(B),AS à CFLAG -1 Q END 

80 DISP DTH$S(X)[3); @ INPUT #: #,P$S:CS 

90 DISP DTHS(X)[3); à INPUT " sm ","---":DS$ 

100 M=S à FOR Z=1 TO LEN(CS) à M=NUM(CS[Z])+M+1 à NEXT Z 

110 1F DS=DTHS(MOD(M,4096))[3] THEN GOSUB 130 à S=M à RETURN 

120 DISP “Erreur de somme" à BEEP à P$=C$ & POP à ON Q GOTO 30,40,50,60 
130 PS=n-............... “ à RETURN 


oO 
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CHARLEX ID#E1 624 octets 01F: 0000000000000000 88 041: 5810083546444830 5FD 


020: 0000000000000000 BE8 042: 0C3142404C700025 953 
0123456789ABCDEF sm 021: 000000000000080€ F13 043: 5455587008355455 CAD 
022: 1A28080008080A2C 27D 044: 5810083544454830 FFB 
000: 34841425C4548502 35E 023: 180008040E340800 5C6 045: 0C3140414C700875 35D 
001: 802E008421328078 6B8 024: 08001E3018000000 900 046: 14141870000A4972 6AE 
002: 5E4001E000000000 9FC 025: 0000000000000000 c10 047: 40000€3159454E30 AE 
003: FE0000000800001F D56 026: 0000000000000000 F20 048: OC7A0F7949400024 D86 
004: F31BF961400032BF 0E9 027: 0000000000000000 230 049: 5554587000084A71 0E2 
005: 38F14A11DB10AD23 483 028: 0201000000010200 546 O4A: 40000C523A262D10 443 
006: 07D532BFB8FD7911 836 029: 0000000201020000 858 048: 0424587458400875 79A 
007: 11AD754D7A101743 BB9 02A: 0001000100000002 B6F 04C: 1415187000094A70 AEA 
008: 11014D1CB815D0000 F24 028: 0102010000000000 E83 040: 4000083544454830 E2E 
009: 71450375FF864834 2A1 02C: 0000000000000000 193 O4E: 0C3140414C300C74 196 
O0A: 5655581008355654 5F8 02D: 045E755142400101 4DF 04F: 5655545000054C71 4ED 
00B: 5810002455565870 945 02E: 0101010000000000 7F2 050: 40000 5E6 
00C: 0026555658700836 C97 02F: 0000000000000000 802 
00D: 5556581008364545 FED 030: 0000070507000000 E25 V TFLAGS ID#5C 66 octets 
00E: 4A300004A49724000 340 031: 00000000083444C4 163 
00F: 0808094A2C180814 6A9 032: 4440007901112D70 4C3 0123456789ABCDEF sm 
010: A464242008355455 A03 033: 0500750509700000 80 
011: 581000054C714000 D49 034: 0070000000384540 B50 000: 45640C41474350202 356 
012: 0C3142404C700832 OAS 035: 4020014E322E3140 EA& 001: 802E009421328078 681 
013: 41414A70002078A0 3FD 036: 084E794142400000 1F4 002: 88000C5C0C000000 AOF 
014: 2F30000000000000 728 037: 00000000002E4559 532 003: F710000000000000 D3D 
015: 0000000000000000 A38 038: 3200000000000000 847 004: 091000F94564C414 OAS 
016: 0000000000000000 D48 039: 0000000000000026 B5F 005: 74C01FF8118FDF8E 46F 
017: 0000000000000000 058 03A: 5556587008365556 EBE 006: OACO8F322B81AF231 808 
018: 0000000000000000 368 038: 5810083645464830 20F 007: C39EEC2023200183 BA7 
019: 0000000000000000 678 03C: 0832414248700024 550 008: 28F80631AF0540E4 F32 
01A: 0000000000000000 988 030: 5655587008345655 BAD 009: 8FB13B1AF68D612F 2F1 
018: 0000000000000000 C98 03E: 5810083446454830 BFC O0A: 08091FB0F 50E 
01C: 0000000000000000 FAB 03F: 0C3042414C700024 F51 
01D: 0000000000000000 288 040: 5556587008355654 2AE 
01E: 0000000000000000 5C8 041: 5810083546444830 5FD 
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ENGLISH SUMMARY 
JPC 47 - SEPTEMBER 1987 


This new JPC contains a lot of different materials. For example, a report about the Copenhagen 
International Conference in August can be found on page 3. This conference was very interesting, and the 
author of the article was impressed by the quality of the organization, and the contents of the various 
speeches. After this, Michael Markov, from USA, give us a small tip improving one of the examples used in 
the article about FINPUT in JPC 43. Next, we have a letter from an Australian friend, Jack Elhay. He explains 
how he began to write assembly code reading JPC. On page 5, François Duret-Lamouroux thanks Jacques 
Baudier for his series of assembly language introductory articles. 


We have two articles from Wlodek Mier-Jedrzejowicz (from HPCC) dedicated to Synthetic Programming 
on the HP-28C. Wlodek is probably the most remarquable expert of this subject. Next, we list all the 
HP-28C known bugs. 


The HP-41 column begins with an article from Jack Elhay providing three useful programs to compute 
various probability distributions. On page 19, René Dine gives us a routine to find prime numbers. 


In the HP-71 corner, you will find a new version of the plotter program from Xavier Bille. This new version 
is written entirely in assembly and in Forth. 


Pierre David and Janick Taillandier present us the MS-DOS version of their super-fast cross-assembler for 
the HP-71. It is about 100 to 200 times faster then the Forth / Assembler module, and adds many new 
features. Good news ! It is free. 


Jan Buitenhuis and Fred van der Windt, from Holland, give us a report of the current status of their 
Devrom : it is an assembler, linker, disassembler, and emulator module for the HP-71. It sounds very 
interesting. Starting page 26, you will find the third part of Jacques Baudier’s series teaching assembly 
language. For the first time, there is a serious and long series of articles on this subject. The small function 
by Jack Elhay, on page 29, is simple, and easy to understand. 


Finally, a very useful utility from Eric Gengoux, on page 30, recovers accidentally purged files. It heavily uses 
JPCLEX functions. 


Until next month, 


Happy Programming and JPC reading... 
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